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ABSTRACT 



This thesis corrects the discrepancies between the input 
Translator and the Z-80 Realization Volume of the Computer 
System Design Environment CCSDE) . It also demonstrated, for 
the first time, complete processing of a problem through 
CSDE. CSDE is a computer-aided design system for real time 
controllers. The Translator takes as input, a Computer 
System Design Language (CSDL) problem and generates a 
primitive list. Each primitive is matched to identically 
named primitive realizations in the Realization Volume. The 
final outputs are hardware and software listings to 
implement the initial design. 
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I . INTRODUCTION 



In the field of computer systems development, the 
current techniques are coming under increased scrutiny 
because of intolerably high costs. Hardware and software 
costs make up the two component parts of computer systems 
development costs. One source projects software to 
comprise approximately 90 percent of total system costs by 
1985 [Ref. 1: p. 71. This trend applies equally to large 
automated data processing systems and to special purpose 
microprocessor based systems, also called embedded systems. 
Total software costs for embedded computer systems, alone, 
in the Department of Defense <D0D> are projected to exceed 
32 billion dollars by 1990 [Ref. 1: p. 8] with 40 to 75 
percent of this total going to software maintenance. Since 
embedded computer system expenditures comprise roughly 30 
percent [Ref. 2: p. 45] of all DOD software spending, this 
clearly illustrates that ways must be found to reduce these 
costa . 

Current software/systems development methodologies 
generally embody a life-cycle approach with various phases 
such as requirements analysis, design, coding, implementation 
and testing. This process is expensive, time consuming and 
flawed mainly because the hardware choices are made early 
in the process to insure hardware availability upon 
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commencement of system testing. Consequently# mis judgments 
concerning hardware and software integration and the 
inability to completely satisfy the original requirements 
specification must either be ' lived with' at the end of the 
project or corrected at great expense. 

Automated design tools of various types seem to hold the 
greatest promise in terms of increasing productivity of 
systems designers and programmers. They range in complexity 
from single function tools such as compilers# interpreters 
and editors to fourth generation languages# applications 
generators and complete software systems generators [Ref. 3: 
p. 63] . The key point of these latter types is that they 
greatly reduce the amount of labor required to finish a 
system design once the requirements specification has been 
completed. Although these tools may be primarily thought of 
as applying to large automated data processing projects# the 
principles also apply to embedded computer systems. 
Thus# similar tools exist and are being developed to aid 
designers of embedded systems# examples of which are real- 
time controllers and computers found in weapons systems 
guidance packages. 

One approach to computer-aided design tools for software 
and systems design is rapid prototyping. Rather than going 
through the traditional phases of the design process and 
hoping that the single final product is on time# on budget# 
and satisfies the requirements specification# rapid 
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prototyping allows preliminary designs to be produced 
relatively cheaply and quickly. Changes to a first 
prototype can be easily incorporated into a second and the 
process continues until the desired results are achieved. 
The important point to be remembered is that the first step 
in any design, the requirements specification, will still 
require thorough research by the designer regardless of what 
design tools are employed. Rapid prototyping encourages the 
consideration of software and hardware simultaneously 
throughout the development cycle and should result in the 
optimum design of a microcomputer based product at the 
lowest cost [Ref. 3: p. 76] . 

A computer-aided design tool for rapid prototyping of 
microprocessor based real-time controllers has been in 
development at the Naval Postgraduate School since 1982. 
The Computer Systems Design Environment (CSDE) was 
originally implemented by Alan A. Rosa CRef. 4] in 1978 
based on initial research by M.N. Hatelan [Ref. 5] . CSDE 
has been the subject of several thesis efforts at NPGS, each 
examining a different module of the system. Currently, all 
components of the system have been completed, but certain 
conflicts between some of them required resolution before a 
successful demonstration of CSDE could be accomplished. The 
subject of this thesis was to identify and resolve the 
procedural conflicts that existed between certain 
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modules of the CSDE system and to complete a successful 
demonstration . 

Concurrent to this research, two projects related to 
CSDE were also completed. Hr. Greg Lukas was hired to 
perform extensive software maintenance on the CSDE program 
to make It more user friendly and run more efficiently. 
LCDR Jim Poole worked on a project to streamline the 
physical process of running a design problem through CSDE. 

Poole's research attacked a problem, documented by 
Smith CRef . 61 and Riley CRef. 9], in which numerous steps 
were required to work within the CSDE environment. The 
steps involved the separate uses of the VAX 11/780 
minicomputer, ALTOS Z-80 microcomputer, the Pro-Log 
microcomputer, and data transfer via modem. Poole 
constructed a single Zenith Z-100 microcomputer workstation 
from which all CSDE operations could be conducted. This 
makes CSDE much more convenient for the user. CRef. 12] 



II . BACKGROUND 



A. SYSTEM DESIGN 

To better understand what the procedural conflicts were 
and where they specifically existed within CSDE, a review of 
the system is essential. Refer to Figure 1 [Ref. 6: p. 20] 
for a simplified block diagram. 




Figure 1 Current Ross Controller Design System 

The basic concept of CSDE is that a designer be able to 
describe a controller application functionally in a high 
order language. input this description into the system and 
obtain software and he dware listings that describe a 
prototype implementatio of the desired application. 
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Currently, three common microprocessors, the Zilog Z-80, 
Intel 8080 and Intel 8086, are available for hardware 
implementation depending on which microprocessor best 
satisfies the design requirements as determined by CSDE. 

The following discussion relates to the various blocks 
in Figure 1. First, the problem statement or functional 
description of the controller is written in the Computer 
System Design Language <CSDL) . The syntax used by CSDL was 
originally defined by Natelan and is summarized by Ross 
CRef. 4: pp. 10-123. A dedicated language manual for CSDL 
has not yet been developed. The CSDL problem statement 
includes such things as the variables to be used, functions 
to be executed and contingency /task pairs. A contingency/ 
task pair is simply a statement that describes which 
function or task will be executed in response to a 
particular condition or contingency. The problem statement 
is then input to the Translator which is equivalent to 
inputting a Pascal source program into a Pascal compiler. 

The Translator is a compiler which reads the CSDL 
program and generates four output files. Two of these four 
files are required by the CSDE system and are shown in 
Figure 1. The Primitive List is output in a file named 
'PRIMFILE.DAT' and contains a list of primitives which 
describe the input problem. A primitive is basically a 
macro-instruction which is later translated by CSDE into 
assembly language instructions for the chosen 
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Microprocessor. An example of a primitive is 's.jmpf' which 
causes a jump to a location if a variable is false. 

The Timing File, also called the Application Timing 
Table, is output in a file named ' IADEFL.DAT' and contains 
attributes of the contingency /task pairs such as maximum 
allowed time duration of each task and contingency and the 
relative priority of each pair. This information is stored 
in a table format and is used by the Timing Analyzer to 
produce a monitor program for the selected microprocessor . 
The monitor program (similar to a simplified operating 
system) insures that all contingency/task pairs are executed 
within the required time constraints as stated in the 
original CSOL problem. 

The third and fourth output files from the Translator 
are named ' SYMFILE.DAT' and 'TRANSLATE.DAT'. 'SYMFILE.DAT' 
contains the Symbol Table, also called the Environment 
Table. The Symbol Table is a listing of attributes of 
variables and constants such as type, precision, and value. 
The Symbol Table is actually a subset of the Primitive List 
('PRIHFILE.DAT'). It's use by the CSDE program is optional. 
If SYMFILE.DAT is available, the Functional Mapper will read 
the Symbol Table before reading the entire Primitive List 
and the CSDE program will execute faster. 'TRANSLATE.DAT' 
is a text file for user convenience and is not used by CSDE. 
Carson used it as an aid in debugging during the development 
of the Translator. Currently, diagnostics which trace 
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errors in Translator input, will deposit error Messages in 
this file CRef. 8: p. 281. 

The key aspect of CSDE is how it picks the particular 
Microprocessor to be used and how it generates the aeeeMbly 



code listing 


to 


aake 


the syatea work 


according to 


the 


requi resents 


of 


the 


initial problea 


stateaent . 


The 



prinitives generated by the Translator are really generic in 
nature. To convert thea to asseably code, each priaitive is 
Matched to an identically naaed priaitive in the Realization 
Voluae that applies to the specific Microprocessor that has 
been selected to iapleaent the problea. For exaaple, the 
Realization Voluae for the Zilog Z-80 contains a list of 
priaitivea and the Z-80 asseably code sequence that 
iapleaents each priaitive. Thus, the Functional Mapper 
would take the priaitive, 'soapf', which had been produced 
by the Translator and Match it to 's.oapf' in the Z-80 
Realization Voluae. The priaitive, 's.japf', is iapleaented 
or realized with three Z-80 asseably language stateaents. 
This Matching process is called functional Mapping because 
the Translator priaitive is Mapped into the Z-80 Realization 
Voluae. Details relating to variables, precision, and 
tiaing are addressed by Ross [Ref. 4: pp. 79-851 . 

The Library of Realization Voluaea (Figure 1) currently 
contains three voluaes based on three Microprocessors. An 
Intel 8080 Voluae was developed by Ross during his original 
research and an Intel 8086 voluae was added by A. J. Cetel 
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[Ref. 71. The Z-80 volume, added by Smith [Ref. 6), was 
choaen for use during this thesis research because the 
prototype computer used for demonstration is currently 
configured for Z-dO operation. 

Device Description and Library Update (Figure 1) refer 
to the process of adding new Realization Volumes in the 
future as well as updating currently existing volumes. This 
process is extremely complex because a Realization Volume 
not only i ' ?ludes software primitives and their assembly 
language translations, but also contains hardware primitives 
which describe the chips or multi-chip circuit boards 
required to implement the software primitives. In the Z-SO 
Realization Volume, all hardware primitives refer to circuit 
boards rather than individual chips because Smith designed 
his Volume for the Pro-Log computer. The Pro-Log can be 
reconfigured easily by installing different boards as 
required CRef. 131. An example of a Z-80 hardware primitive 
is 'h.atod' which calls for an 8 bit analog to digital 
conversion board. The actual translation of 'h.atod' 
specifies items like which circuit board to use and which 
jumper pins should be connected or disconnected. 

The hardware listing produced by CSDE for a given design 
is the indirect result of the software primitives generated 
by the Translator. As Translator-produced software 
primitives are successfully mapped to software primitives in 
a Realization Volume, hardware is also specified. 
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Translations of softwars primitives in the Realization 
Volume contain references to hardware primitives, also 
contained in the same Realization Volume. For example, the 
translation for a software primitive like ' s.clockon25' 
(generate a 25 millisecond clock) contains the statement, 
'include h. clock'. 'h. clock' is the Z-80 hardware primitive 
which details the connections for the counter-timer chip on 
the CPU circuit board to produce a 25 millisecond clock. 
Modifications or additions to software primitives in a 
Realization Volume must also be accompanied by appropriate 
changes to hardware primitives. This insures that a 
realizable controller design, in terms of software and 
hardware, can still be produced by CSDE. 



B. FOCUS OF THESIS 



The Translator 


module 


of 


the CSDE system 


was not 


developed by Ross 


during 


his 


initial research. 


During 



subsequent thesis research at NPGS the Translator module was 
written by T. H. Carson [Ref . 83 . Concurrent to Carson's 
work, the Z-80 Realization Volume was developed by Smith 
[Ref. 63. A successful demonstration of the complete CSDE, 
from input to operation, is the subject of this thesis. 
Previous discrepancies between these two modules prevented 
such a demonstration. 

The discrepancies involved differences between the 
primitives that were produced by the Translator and 
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primitive* that were available for use in the 2-80 
Realization Volume. For example, the Translator generates 
a primitive called 's.sensecond' which relates to sensing a 
condition or testing for a certain flag. There was no 
's.sensecond' primitive in the Z-80 Realization Volume. 
This did not mean that the Z-80 Volume lacked primitives 
that could implement the function of 's.sensecond'. Rather, 
the problem may only have existed in the names used to label 
the same macro-instruction. This problem of discrepancies 
between primitives generated by the Translator and those 
available in the Z-80 Volume caused CSDE to abort an 
attempted controller implementation with a Z-80 
microprocessor when such a discrepancy was encountered. 

To correct the discrepancies with primitives, all 
primitives available from the Translator were compared to 
those present in the Z-80 Realization Volume. For Transla- 
tor primitives like 's.sensecond', which had no matching Z- 
80 primitives, a solid understanding of the function of the 
primitive was gained. Then the Z-80 Volume was examined to 
see if the function in question was labeled with a different 
name or implemented in a different manner. Corrective 
actions consisted of modifying old primitives and adding new 
primitives to the Z-80 Realization Volume so that all 
primitives produced by the Translator can now be realized 
except for 's. in/outport' . 



18 



Once the discrepancies with primitives were corrected, 
sample demonstration problems were run through the entire 
process to test each new primitive and those old Smith 
primitives retained in the revised Z-80 Realization Volume. 
The demonstration problems were simple and only proved that 
each primitive could be processed by the CSDE system based 
on a single set of data. This brings to light the general 
problem of systems testing within the computer industry. 
Just because one problem was successfully demonstrated in 
CSDE does not mean other errors do not exist. However, 
exhaustive testing was not possible during the scope of this 
research just as it is rarely possible in industry. 
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III. METHODOLOGY 



The task of identification and correction of 
discrepancies between output from Carson's Translator and 
primitives available in Smith's Z-80 Realization Volume is a 
difficult software maintenance project. The importance of 
well documented code and the desirability of a face to face 
turnover between past and current researchers was made pain- 
fully clear as work progressed. The primary sources of 
information regarding CSDE were more than adequate with the 
availability of Matelan's reports, Ross's thesis, and LtCol 
Ross, himself. Information regarding Carson's Translator 
consisted of his thesis, a loose sheet summarizing 
Translator produced primitives (Appendix A), and a CSDL test 
program (Appendix B) designed to produce a primitive list 
(Appendix C) containing all primitives available from the 
Translator. These last two items proved invaluable in 
helping to determine the functional meanings of the 
Translator produced primitives. Information regarding 
Smith's Z-80 Realization Volume consisted of his well docu- 
mented thesis and a simple but important demonstration 
problem written and discussed by Riley CRef. 9: Appendix 
E. 1 . 

Initially, a comparison was made between software 
primitives in the Z-80 Realization Volume and those 
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available fro* the Translator for one to one correspondence. 
The net result was that 15 of 39 possible primitives 
available from the translator had no matching primitive in 
the Z-SO Realization Volume. Thus, the first task was to 
write new primitives for the Z-80 Realization Volume to 
match the outstanding 15 from the Translator. 

Smith wrote 68 software primitives for his Z-80 
Realization Volume. It would seem to be a fairly reasonable 
task to write 15 more. Some were relatively easy while a 
few were not constructed for reasons discussed later. 

A. DETERMINING MEANINGS OF NEW PRIMITIVES 

The general approach to writing a new Z-80 primitive is 
to first examine the part of the CSDL language that the 
primitive represents and to understand what it means. Since 
no language manual exits for CSDL, one must examine the 
actual syntactic structure that corresponds to the 
primitive. Carson made this correspondence through the use 
of production numbers. Each CSDL primitive listed in 
Appendix A has a production number which corresponds to the 
production number of its syntax structure. The CSDL syntax 
structures are displayed in Backus-Naur form which is a 
standard representation of the syntax structures of a 
computer language CRef. 10: p. 163. Originally conceived by 
Matelan, CSDL was refined by Carson when he developed his 
Translator and is displayed by production number in his 



£1 



thesis [Ref. 8: pp. 47-543 . The syntax structure for a 
given primitive serves as the basis for development of a new 
primitive realization. Newly developed primitives are 
discussed individually in subsection C of this chapter and 
the CSDL syntax structures that apply are listed as each one 
is discussed. 

In most cases , the Backus-Naur syntax structures were 
insufficient to determine the meanings of new primitives. 
One also had to study the applicable portion of Carson's 
CSDL test program and look at the corresponding set of 
primitives. In this manner one could see the context in 

which the primitive was used to better determine its 
meaning. For example, to determine the meaning of 
's.f ixedwait' first look at its syntax structure in figure 
2. Note that a word not enclosed in brackets is called a 

<WAIT> ::= WAIT <PERIOD> 

/ WAIT <EXPRESSION> : <PERIOD> 

<PERI0D> -NUMBER* <TIME MEASURE> 

<TIME MEASURE> : : = H / M / S / MS / US / NS 

Figure 2 Syntax Structure Corresponding to ' s. f ixedwait ' 

terminal and a word that is enclosed in brackets, < >, is 
called a nonterminal. Terminals appear in a CSDL problem as 
is, while nonterminals are located elsewhere in the Backus- 
Naur description of CSDL until they ultimately are defined 
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aa terminals. In thia caae <PERIOD> can ultimately be a 
number and measure of time ranging from houra to 
nanoaaconda. The ayntax for 'a.f ixedwait' ia relativaly 
atraight forward but tha format for conatruction of a 
primitive has atill not been made clear. 

The next atep ia to look at the primitive liat generated 
by the Translator from tha CSDL teat program to find 
'a.f ixedwait ' . A segment of the primitive liat containing 
'a.f ixedwait' ia ahown in Figure 3. Thia primitive list was 



P 33t. generated for! KBINPMAIN ***••* 

P 34s. proc (KBINPMAIN*.) 

P 35a. assign (MENU,0CO2:8,8> 

P 36s. iaauevent (MENU: 8) 

P 37a . aeneecond (KEYCHAR:8> 

P 38a. eq (0TO1,KEYCHAR,0CO1 :8,8,8> 

P 39s. jmpf (0TO1, 002:8) 

P 40s. assign (MINTAC,0CO1 :8,8) 

P 41s. loc (002:) 

-> P 42a. f ixedwait (10) 

P 43e.exitproc (KBINPMAIN:) •*•••• 



< 



Figure 3 Primitive Liat Segment Containing ' s . f ixedwait ' 



generated for TASK KBINPMAIN in the procedures section of 
the CSDL test program, shown in Figure 4. By looking back 
and forth between the theee two figures one can understand 
each CSDL construct and its matching primitive. In the case 
of 's.f ixedwait' , 'WAIT 10MS' results in the primitive 
'a.f ixedwait (10)' and meane that when the 'WAIT' 
instruction ia encountered no other tasks are to be executed 
or contingencies checked until the specified time has 



23 



•lapsed. This definition of 's.f ixedwait' was confirmed by 
LtCol Ross prior to construction of the Z-80 primitive. He 

TASK KBINPMAIN ; 

MENU : a 0; ISSUE (MENU); 

SENSE (KEYCHAR); 

IF KEYCHAR*1 THEN MINTAC :*1; END IF; 

> WAIT 10MS; < 

END KBINPMAIN; 

Figure 4 

CSDL Problem Segment Corresponding to Primitives in Fig 3 

was consulted prior to construction of all other primitives 
in question because of his familiarity with Matelan's 
concepts of the CSDL language. 

A final source of information to be checked prior to 
actual Z-80 primitive construction is one or both of the 
other two currently existing realization volumes. For 
example, Ross wrote an ' s . f ixedwait ' primitive for his Intel 
8080 Realization Volume [Ref. 4: p. B-4] . This provided an 
excellent model from which to work with good examples of the 
proper placement of CSDE statements as well as the assembly 
language statements that would cause the controller to 
execute the function of this primitive. 

B. COMPUTER SYSTEM DESIGN LANGUAGE (CSDL) PHILOSOPHY 

Before discussing actual primitive construction an 
important question needs to be answered. Why only construct 
primitives in the Z-80 Realization Volume to match existing 
primitives available from the Translator instead of changing 
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the Translator to produce primitives to match the ones 
originally available in the Z-SO Realization Volume? 

The philosophy of CSDL is that the designer should be 



able to 


specify the 


functional design 


of 


a controller 


totally 


independent 


from the knowledge 


of 


any specific 



hardware that might be used to build it. The structures 
available in CSDL are generic in nature and allow the de- 
scription of arithmetic, logical, and input/output 
operations that could be applied to any computer-based 
controller. Thus, the primitives that are available from 
the Translator are a direct reflection of the CSDL language 
as originally defined by Matelan. To change the Translator 
so it would produce a primitive such as 's.atod' would first 
require a change to CSDL. A syntax structure would have to 
be added such that a designer could specify an analog to 
digital signal conversion during an input/output operation. 
Why did Smith include an 's.atod' primitive in the Z-SO 
Realization Volume? 

Smith included many primitives whose functions are not 
supported by CSDL. Some, like 's.atod', were written to 
provide the capability to use the hardware that was 
available to him. In this case, one of the boards currently 
available is a Pro-Log compatible analog to digital 
conversion board, a Mostek mdx-a/d8 board. Another is 
's.clockcons' , written to enable use of the 3-channel clock 
that is co-mounted with the cpu on the Z-SOA cpu board. As 
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it stands now, an analog to digital function can not be 
included in a controller designed within the scope of CSDE 
and would have to be added externally once the CSDE 
controller design was realized. 

In addition to hardware specific primitives, Smith also 
included specialty primitives such as 's.consfp', 's.varfp', 
and 'a.fptoieee' to handle internal data represented in 
floating point notation. Here too, CSDL does not allow the 
designer to be this specific. 

The net result is that the modified Z-80 Realization 
Volume produced by this thesis research excludes many of 
Smith's primitives. If the CSDL language is expanded in the 
future some of these deleted primitives might then be 
included . 

The final reason for not making any changes to the 
Translator is the lack of expertise of this researcher in 
the area of compiler design and construction. This also 
makes it impossible to correct a few formatting errors that 
occur in the Translator's output files. These formatting 
errors cause the CSDE program not to accept a logically 
correct CSDL problem straight from the Translator. The 
specific errors discovered are discussed in Chapter 4 and 
summarized in Appendix G. 
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C. PRIMITIVE CONSTRUCTION 



Having determined the meaning of the new primitive to be 
constructed, the first step in construction was to write the 
Z-80 assembly language routine that would accomplish the 
desired function. The routine was then tested independently 
to eliminate logical and syntax errors prior to inclusion in 
the rest of the primitive body. Although the routine could 
be tested separately on any CP/M Z-80 microcomputer, it was 
easily tested right on the Pro-Log utilizing the Zenith Z- 
100 workstation set up specifically for CSDE research. 
This workstation consists of the Z-100 connected to the Pro- 
log and connected to the VAX 11/780 on which the Translator 
and the CSDE program both reside CRef . 12] . 

To test a routine, it was first written on the Z-100 
using an editor or word processor like Wordstar in non- 
document mode. It was then assembled and linked using the 
procedures set forth by LCDR Jim Poole, developer of the 
CSDE work station CRef. 12]. The starting address specified 
at time of linkage must be 4000h since this is where user 
addressable RAM starts in the Pro-Log. Once the routine was 
linked its resultant hex file was downloaded to the Pro-Log 
using the AMDS program resident on the Z-100 and on an EPROM 
starting at OOOOh in the Pro-Log. Detailed procedures are 
contained in Poole's thesis. Having downloaded the routine 
into the Pro-Log, it was run by pressing the reset button on 
the Pro-Log then typing G4000 on the ADM-3 monitor which is 
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also connected to the Pro-Log. Results were checked by 
Inspecting the contents of appropriate memory locations, 
again using the facilities of the AMDS monitor in the Pro- 
Log. This same procedure was used to test programs 
generated by CSDE except that instead of creating the 
assembly routine on the Z-100, the assembly program output 
from CSDE was downloaded from the VAX to the Z-100. 

In the case of 's.f ixedwait' , for example, the assembly 
code consists of two down counter loops, one nested inside 
the other, that delays the cpu from doing anything else as 
its executing the loops. For demonstration purposes, it was 
linked to a short routine to display some letters on the 
Pro-Log once the software delay had been completed. The 
delay was written to handle time in milliseconds vice 
microseconds so that the user could see the delay by timing 
the interval with a watch from the time the routine was 
started until the letters actually appeared on the Pro-Log 
display. The reference for Z-80 assembly language was Zaks' 
Programming the Z-80 [Ref. 14] and the reference for writing 
the letter display routine was the users manual for the Pro- 
Log 7303 Keyboard/Display Card CRef. 15: p.3-53. 

Once the assembly language routine was written and 
tested the rest of the primitive was constructed. There are 
very strict formatting requirements for the construction of 
e primitive. Detailed instructions are contained in Ross's 
thesis [Ref. 4: pp. 79-85.3 and particular attention must be 
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paid to the column dependencies end format for the arguments 
contained in the primitive title line. The best way to 
understand primitive construction format is to study 
previously written primitives by Ross CRef. 4: Appendix B1 
and Smith CRef. 6: Appendix Cl . 

When the primitive was finished it was added to the Z-60 
Realization Volume. The Volume is normally contained in a 
file called RELIZE.MAC although the CSDE program allows the 
designer to name the required files anyway he chooses. Its 
format is strict in that the first portion of the Volume 
must be an index of the primitive title lines in 
alphabetical order. The last 4 numbers following the second 
colon of each title line specify the first occurrence of a 
CALC line, the first occurrence of an ATTR line and the 
beginning and ending line numbers locating the primitive 
within the Volume. To make the addition or deletion of 
primitives to the Volume easier, a program is available on 
the VAX called FORMAT.EXE. It takes as input just the prim- 
itives, stripped of line numbers and with no index. The 
primitives must start in column 6 and the last 4 numbers 
specified in the primitive title lines can be delineated 
simply as spaces or asterisks such as in 's.fixedwait 
<time:0, 1275:15, -5, 18, , ,***•,«••*>'. If certain values in 
a title line are to be left intentionally blank such as in 
'h.cardcage C: , , ,0,0, »***,«*»«>' , the blanks must be 
present before input to FORMAT or else FORMAT will inject an 
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extra comma into the primitive title line. The FORMAT 
program will create the index, add line numbers, and 
correctly fill in the last 4 numbers in each primitive 
title line. To use the formatter, type RUH FORMAT. It will 
ask for an input file name which is the file containing the 
unnumbered primitives. Then it will ask for an output file 
name which should usually be RELIZE.MAC. The resultant 
output file is ready for use by the CSDE program. 

Because of the variation n complexity of the new 
primitives, it is important to discuss specific aspects 
that make each one unique. This should help future 
researchers if CSDL or the Translator is modified and more 
primitives need to be added to the Realization Volume. The 
following primitives were added to the Z-80 Realization 
Volume: s.inputport, s.sensecond, s . outputport , s.issuevent, 
s.fixedwait, s.call, s . equivalenc, a. implicate, s.forcons, 
s . whi lestart , s.in, s.ni, s.stboolwait , s.boolwait, and 
s.waitleast. These new primitives along with relevant 
primitives from Smith's original Z-SO Realization Volume can 
be found in the revised Z-80 Realization Volume in Appendix 
E. Each of the constructed primitives is discussed below. 
The primitive, 's. in/outport' , was not constructed. The Z- 
80 Realization Volume now contains a realization of every 
primitive that can be invoked by the Translator except for 
' s . in/outport' . 
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1 • In put. /Output 



Five different primitive* relating to input/output 
(I/O) are produced by the Translator which were not present 
in Smith's 2-80 Realization Volume. They are ' a . inputport' , 
's.aensecond', 's.outputport' , 'a. issuevent' , and 
's. in/outport' . A discuaaion of Matelan's philosophy 
towards I/O is appropriate before describing primitive 
details. 

Matelan stated that 'type' refers to how data may be 
used rather than how it is stored. Traditionally, we think 
of types in the latter sense. such as a variable being 
specified as type integer or real. CSDL allows 3 
transmission types: INPUT ONLY, OUTPUT ONLY, and DUPLEX 
(input and output) [Ref. 10: p. 181. To understand the 
differences a real world example is presented. 

If a controller were to periodically sense the 
position of a valve, the valve would need to produce a 
proportional analog output signal which would then be 
converted to a digital signal by an analog to digital 
converter. This digital signal would be available via a 
specific line to a specific port which would be uniquely 
addressed by the cpu of the controller. This port would be 
for INPUT ONLY with data on the current valve position 
always available. 

A typical hardware I/O implementation for a Z-80 
microprocessor might involve using a parallel input/output 
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interface chip (PIO), which provides 2 or 3 ports. A port, 
here, refers to an d-bit connection that may be used for 
input or output CRef. lit p. 182). A PIO chip is 
programmable to set the direction for which the ports will 
be used. To provide INPUT ONLY, the software must first 
select the port to which the position signal is sent and 
program the PIO so that the selected port is set up in the 
INPUT direction. Once the port is set up, information can 
be read from it as often as the programmer desires with a 
simple instruction such as the Z-80 **in a,<n)”, where ' n* is 
the port address and 'a' is the accumulator. 

The primitive, 'a. inputport' , comes from the CSDL 
syntax, <INPUT SPEC> : : = INPUT: TRANSMISSION BODY> END INPUT, 
and the primitive, 's.sensecond' , comes from the CSDL 
syntax, <DATA INPUT>::= SENSE ( <NAME> ) . Using the valve 
example, source to and primitives generated by the 
Translator might appear as in Figure 5. The primitive. 



SOURCE 

(CSDL Problem Statement) 



ENVIRONMENT 

INPUT: VLVPOS , 8 , TTL 



PROCEDURES 

FUNCTION VALVCHEK 
SENSE (VLVPOS) 



OBJECT 

(Primitive List) 



s. inputport (VLVPOS, TTL: 8) 



s.sensecond (VLVP0S:8) 



Figure 5 CSDL Implementation of Input 



'a. inputport' , would be uaed to aet up the dealred port for 
input <i.e. aend appropriate control code to the PXO) and 
'a.sensecond' , would be uaed to actually get data from the 
deaired port into the cpu. 

Similarly, the controller ahould be able to aend a 
digital output aignal via a digital to analog converter to 
the valve poaitioning motor. Thia would be an OUTPUT ONLY 
function. The primitive, 'a.outputport' cornea from the CSDL 
ayntax, <OUTPUT SPEC>::» OUTPUT: KTRANSNISSION BODY> END 
OUTPUT, and 'a. iaauevent' cornea from <DATA OUTPUT> : : * ISSUE 
(<NAHE>). The primitive, 'a.outputport', would be uaed to 
aet up the deaired port for output (i.e. aend the appro- 
priate control code to the PIO) and ' a . iaauevent ' would be 
uaed to actually aend the digital valve poeitioning aignal 
to the deaired port for output. 

The implementation of data tranamiaaion type DUPLEX 
ia more complex. Duplex meana the capability of INPUT AND 
OUTPUT through a aingle port with no prior 8et up. 
Theoretically, thia might imply uaing a PIO that did not 
require control codea to aet up the direction of one of ita 
porta prior to uaing that port. Data could be 'sensed' from 
or 'iaaued' to a port defined aa duplex without having to 
worry if the port waa configured correctly. In the event 
that duplex waa not implemented solely through the use of a 
non- programmable PIO, it might be achieved by including code 



within 



the 



a. iaauevent' and 



a . aenaecond 



primitives 



to change port direction whenever an output or input 
was required. Under what conditions would a designer desire 
a DUPLEX transmission type? Perhaps there are hardware 
restrictions that limit the number of ports available to the 
controller and DUPLEX is the only way to satisfy all of the 
I/O requirements of the external device being controlled. 
The CSDL philosophy is that the designer is not concerned 
with hardware when he originates his design. Hardware is 
determined by the realization volume, whose software 
primitives are written for a fixed set of components 
specified by the hardware primitives. If a designer inputs 
one design into CSDE with too many INPUT ONLY or OUTPUT ONLY 
data transmission types, CSDE might declare the design not 
realizable for a given microprocessor type such as contained 
in the Z-80 Realization Volume. In the case of the Z-80 
Volume, hardware is specifically configured at the board 
level and I/O software primitives must incorporate the 
programming guidelines of the board manufacturers. 
Alternately, if the designer resubmitted his design using 
more DUPLEX types in lieu of separate INPUT and OUTPUT 
types, the design might be realizable. 

There are no PIO devices installed in the hardware 
currently allowed by the Z-80 Realization Volume. If a PIO 
chip was installed, a DUPLEX data transmission type 
primitive could be added to the Z-80 Volume by constructing 
the ' s . in/outport ' primitive such that it emulates the 



34 



DUPLEX function. One possible scheme might be that when a 
DUPLEX type ia declared, it ia automatically aet up to a 
default mode of INPUT only. Data may be 'sensed' from the 
referenced port with no change in port setup. If data ia 
'issued' to this port than a software mechanism must exist 
to reaet the port for OUTPUT first and, upon completion of 
the data output, reset the port to its default configuration 
of INPUT ONLY. 

In the case of the Z-SO Realizaion Volume, a single 
data port on the Pro-Log keyboard/display card is available 
for input or output. A single control port is also 
available to control the mode of display of data once it has 
been output from the CPU to the keyboard/diaplay card. Data 
sent to the control port controls the output display and not 
the data port. Thus, this single data port is DUPLEX in 
nature since no control codes are required to configure it 
for input or output. However, no DUPLEX function, i.e. an 
s.in/outport primitive, has been added to the Z-80 Volume. 
Because of the simple hardware available, it would merely 
duplicate the functions of the 's.inputport' and 
's.outputport' primitives. More importantly, a flaw exists 
in the Translator which will not allow data to be 'sensed' 
or 'issued' through a variable that has been declared as 
DUPLEX. 

To demonstrate the concepts of I/O for this thesis, 
the I/O primitives have been constructed very simply. The 
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hardware they use ia the Pro-Log keyboard/display board 
which only haa one data port addreaaed at dOh. The value of 
the digital aignal available at the port can be determined 
by inapection of the 8 leda on the board, repreaenting bita 
0 through 7 read right to left. The ' a. outputport ' 
primitive createa an output variable uaed to hold the 
output value, cleara the led diaplay, and aenda a control 
code to the board's aingle control port, dlh, to diaable the 
alphanumeric diaplay. The 's.iasuevent' primitive outputa 
the contenta of the output variable declared by 
' a. outputport ' to the data port. The value can then be 
determined by inapection of the 8 leda. 

The primitive, ' a. inputport ' , createa an input 
atorage location. No other actiona are required becauae of 
the very limited I/O facilitiea of the Pro-Log 
keyboard/diaplay card. With only one data port available 
for input, no control codea are required. When more complex 
I/O hardware ia available thia primitive will require 
modification. The primitive, 's.eenaecond' , ia alightly 
artificial in that a converaion routine waa added to accom- 
modate the 2 rocker awitchea on the keyboard/diaplay card. 
Theae awitchea directly control the contenta of bita 6 and 7 
(assume* bits numbered 0 to 7) of the 8-bit data port when 
it ia 'aeneed' for input. Thus by masking out all but the 
left moat 2 bita, 4 possible values can be 'sensed' for 
input as directly controlled by the position of the rocker 
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switches. Four possible input values were sufficient for 
the demonstration problems attempted. Exact details as to 
switch positions can be found in the comment lines of the 
primitive in Appendix E. 

2. S.f ixedwait 

The primitive, 's.f ixedwait' , has already been 
discussed in section III. A. There are a few additional 
points of interest. 

This primitive contains an attribute line in 
addition to comment and calc lines. Attribute lines are 
used when the length of time of execution of a primitive is 
directly related to one of its input values. In this case, 
the input value is the desired time delay in milliseconds 
and also controls the length of execution of the primitive. 
Normally, the maximum execution time for a given primitive 
appears in the primitive title line as the second number 
after the second colon. The units are in clock cycles. A 
negative number is treated as a flag to indicate that the 
actual attribute needs to be calculated at code generation 
time. The flag is also the offset value, starting from the 
primitive title line, of the line number where the attribute 
calculation can be found. 

In the case of 's.f ixedwait' , the attribute line is 
'attr time *<time>“4000' and means take the input value and 
multiply it by 4000, with the result being the real 
execution time for this primitive in terms of clock cycles. 
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The factor of 4000 comas from the fact that 1 millisecond 
equals 4000 clock cycles with a 4 Mhz clock. The Z-80A 
supplied on the Pro-Log cpu board uses a 4Mhz clock. 

There is a format error in the way the Translator 
produces this primitive. Specifically, there is a missing 
colon; the format should be 's.fixedwait CIO:)' instead of 
's.fixedwait CIO)'. Normally the missing colon would cause 
a fatal error within the CSDE program but the program has 
been modified to accept 's.fixedwait' without the colon. 
Informative error messages still result to remind the 
designer that the Translator requires modification. 

3. S.cqU 

The primitive, 'a. call', comes from the syntax, 
<PERF0RM TASK> = »ID», and gives the designer the ability 
to execute one task from inside another task without first 
having to check the other task's associated contingency. 
The Z-80 code to implement this primitive consists of a call 
instruction to a label that marks the desired task's 
subroutine. Although logically correct, this primitive is 
not useful within CSDE because no mechanism exits to account 
for the extra run time that is incurred when a task is 
executed in this manner. If 's.call' is used, CSDE will not 
have an accurate execution time statistic for a given design 
and could falsely generate a realization of a problem that 
does not meet the designer's timing requirements. 
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4. S. equlvalenc and S. implicate 



Both of thaaa primitives perform logical comparisons 
between two expressions in the same manner as 's.or' or 
's.and'. The inputs to them are the boolean results of 2 
expressions, true <ff hex) or false (00 hex). The output is 
a boolean result according to the specified truth table 
CRef. 16: p. 813. Truth tables for both primitives can be 
found in Appendix E in the comment lines for each primitive. 
The CSDL syntax for 's.equivalenc' is ' <EXPRESSION> 

< EXPRESSION > »* <EXP_2> ' and for 's. implicate' is '<EXP_2> 
<EXP_2> -> <EXP_3> ' . 

S. S.forcons 

This primitive marks the top of a for-loop and was 
already included in Smith's Realization Volume under the 
primitive name 's.foratart' . Statements have been added to 
properly account for changes in execution time that arise 
depending on how many times a for-loop is executed. Also, 
the arrangement of arguments within the title line is 
slightly different from the format output from the 
Translator because of the rules by which primitive 
realizations must be constructed. The CSDL syntax is ' <F0R 
HEAD) FOR *ID» FROM <EXPRESSION> TO <EXPRESSION> : <MAX 
LOOP COUNT)'. 

To accurately keep track of total execution time 
during loop operations Ross incorporated the global 
variable, 'reps', in the CSDE program. The value of 'reps' 
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is the factor by which the execution tise of each prisitive 
is sultiplied prior to being accusulated by the timing 
analyzer. It is normally set equal to 1 but in the case of 
a loop it Is set equal to the value of max loop count 
specified by the designer. Once the 's.forend' primitive is 
encountered. the value of 'reps' is reset to the value it 
had upon entering the for-loop. Previous values of 'reps' 
are saved and recovered through the use of a stack inside 
the CSDE program. This stack is only used for the global 
variable 'reps' and manipula d with the statements. 'calc 
push reps' or 'calc pop reps'. This stack arrangement 
allows the construction of nested loops. 

The format of the realization title line is 
slightly different for the primitive format generated by the 
Translator because of an error related to the positioning of 
the value for max loop count. Currently the Translator 
output appears as follows: 

s.forcons ( COUNT, 0CO2.0CO4, 003, 004 :8,8,8, 120 > . 

The criteria section of the title line (to the right of the 
colon) should contain only values corresponding to the 
variables in the argument section (to the left of the 
colon) . In this case there are 3 variables and 2 labels in 
the argument section and as such there should only be 3 
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available within the primitive. Consequently, the primitive 
realization was constructed to accept the following format: 
s.forcons ( COUNT, 9CO2,0CO4, 003, 004, 120:8,8,8) . 

The max loop count value also appears in the 's.forend' 
primitive as generated by the Translator. It is not 
required for proper construction of a for-loop and is 
ignored. Manual editing of the primitive list output file 
from the Translator is required whenever the for-loop 
primitives appear. Otherwise a fatal error will result upon 
running the CSDE program. 

S. S. f wh.n«tt<|3rt 

This primitive is used in conjunction with the 
primitives, 's.whilecon' and 's.whend' to construct a while- 
do-loop. Its functions are to establish a label for the 

beginning of a while-do-loop and manipulate the max loop 
count using the global variable, 'reps'. This is similar to 
the method used in 's.forcons'. The CSOL syntax is ' <WHILE> 
WHILE'. Again, there is a problem as to where the max 
loop count is placed. 

The CSDL syntax currently calls for max loop count 
to appear in the 's.whilecon' primitive and not in 
's.whilestart' . This is wrong because the condition to be 
checked to determine if the while-do-loop should be 

continued appears as other primitives between 's.whilestart' 
and 's.whilecon'. Thus, these primitives, as well as the 
primitives appearing between 's.whilecon' and 's.whend', are 
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executed for every repet.it.ion of the loop. For correct 
tiMing statistics the execution tines for both the 
condition checking prisitives before 'a.whilecon' and the 
action prisitives after 's.whilecon' be must multiplied by 
max loop count. This requires that the max loop count value 
appear in 's.whilestart' . The primitive realizations have 
been written accordingly. Editing of the primitive list 
output from the Translator is required whenever the while- 
do- loop primitives are generated. Examples of the changes 
required are shown in Figure 6. 

Sample Output From Translator (unedited) 

P 31s. whilestart (603 : ) 

(condition checking primitives) 

• 

P 33s.whilecon (6T01 .904:4) < '4' is max loop count. 

. Precision of 6T01 is 

(action primitives) missing. 

• 

P 36s.whend (603,604:) 

Required Format for Input to CSDE Program 

P 31s .whilestart (603, 4 : ) < Max loop count here. 

(condition checking primitives) 

e 

P 33s.whilecon (6T01, 604:8) < Precision of 6T01 

. added . 

(action primitives) 

• 

P 38s.whend (603,604:) 

Figure 6 Changes Required For 's.whilestart' 
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7 • S t In sud s . ni 



These primitives are produced when a timed block is 
specified. A timed block ia a nested aet of actions within 
a task or function, with its own timing criteria. This 
timing criteria ia in addition to any criteria specified for 
the parent taak or function in the application timing table. 
An example can be found in Appendix B within the function 
* TPOLL' . The syntax for a. in ia <TIMED_BLOCK_HEAD> IN 
<PERIOD> and for a.ni ia <TIMED BLOCK>::= <TIMED_BLOCK_HEAD> 
DO <STMT GP> END IN. 

These primitives are in the same format aa they 
originally appeared in Rosa's 8080 Realization Volume. They 
were added to the Z-80 Volume for purposes of completeness 
only and cannot be used in their present form. This is 
because the mechanism by which the CSDE program would 
implement a nested timing requirement is not functional. 
No effort was expended to correct this problem because it 
was reasoned that if a designer had an inclination to 
specify a timed block he could just as easily take the 
actions in question and put them in a separate task or 
function . 

8 . S.Stboolwait and s.boolwait 

These primitives are generated when a boolean wait 
construct is specified. This construct would be specified 
by a designer when he wanted to check the results of an 
arithmetic expression for a fixed time period. The 
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expression is checked until either the result is true or the 
specified tine has expired after which the rest of the task 
is executed. An exasple can be found in Appendix B in the 
task, 'MSGDSPLY'. The syntax for 's.stboolwait' is <WAIT 
HEAD> WAIT UNTIL and for 's.boolwait' is <WAIT UNTIL> 

<WAIT_HEAD> < EXPRESS ION > : <PERIOD>. 

The logic of the realization is fairly simple. The 
primitive, ‘'s.stboolwait', sets the time to check the 
expression by calling another primitive, 's.setime' . This 
i 8 analogous to setting a timer, in this case the counter 
timer chip <ctc) on the Pro-log cpu board. Then it 

establishes a label for the top of a mini polling routine. 
The expression primitive would appear between 's.stboolwait' 
and 's.boolwait' . Finally, 's.boolwait' completes the 
polling loop by first checking the result of the expression 

primitive. If the result is true the routine is exited. If 

the result is false, the current time is read from the etc. 
If the time is expired the routine is exited. Otherwise a 
jump is executed to the top of the loop. 

The primitive, 's.setime', is not generated by the 
Translator. It was written as a separate primitive to 
maintain the modularity of the Realization Volume and to 
allow testing of the CSDE 'call' instruction in the 
primitive, 's.stboolwait'. It sets up the etc as a 

down counter which decrements at 1 ms intervals. Details of 



44 



available within the primitive. Consequently, the primitive 
realization was constructed to accept the following format: 
s.forcons (COUNT, 8CO2,0CO4, 003, ©04, 120:8,8,8) . 

The max loop count value also appears in the 's.forend' 
primitive as generated by the Translator. It is not 
required for proper construction of a for-loop and is 
ignored. Manual editing of the primitive list output file 
from the Translator is required whenever the for-loop 
primitives appear. Otherwise a fatal error will result upon 
running the CSDE program. 

6 . 

This primitive is used in conjunction with the 
primitives, 's.whilecon' and 's.whend' to construct a while- 
do-loop. Its functions are to establish a label for the 

beginning of a while-do-loop and manipulate the max loop 
count using the global variable, 'reps'. This is similar to 
the method used in 's.forcons'. The CSDL syntax is '<WHILE> 
WHILE'. Again, there is a problem as to where the max 
loop count is placed. 

The CSDL syntax currently calls for max loop count 
to appear in the 's.whilecon' primitive and not in 
's.whilestart ' . This is wrong because the condition to be 

checked to determine if the while-do-loop should be 

continued appears as other primitives between 's.whilestart' 
and 's.whilecon'. Thus, these primitives, as well as the 
primitives appearing between 's.whilecon' and 's.whend', are 



41 



Thus, there would be no reaeon to Incorporate a polling 
routine, knowing the result could never change. The CSDL 
syntax and the Translator should be corrected to allow 
additional primitives within the boolean wait routine such 
as 's.sensecond' . It would then be possible for the result 
of the final expression to change during the specified time 
period. The boolean wait realizations have been written 
accordingly. 

9. S^waifeiaati. 

This primitive generates a software delay that is 
computed by multiplying the integer result of an arithmetic 
expression by a specified time period. The integer result 
is passed to 's.waitleast' from primitives that appear above 
it. The specified time period appears in 's.waitleast'. 
The syntax for it is <WAIT>::= WAIT <EXPRESSION> : <PERIOD> . 
An example can be found in Appendix B in the task, MSGDSPLY. 

When code from this primitive is incorporated into a 
task the execution time of that task becomes variable based 
on internally computed results when the controller program 
is running. Since these changes in execution time occur 
completely external to CSDE, there is no way to achieve 
accurate timing statistics when the program is generated 
unless the designer can specify some maximum delay in the 
CSDL problem. Additionally, since the integer result passed 
to 's.waitleast' is passed via a variable and not an 
absolute number, the loop structure used in the 
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s. wait least 



realization required several 



additional 



arguments to be present in the title line than those 
generated by the Translator. The differences are displayed 
in Figure S as well as proposed CSDL syntax changes. Note 
that editing the primitive list requires more than just 
changing the 's.waitleast' title line. An additional 
variable may need to be added with an 'a.var' primitive to 



Current CSDL Syntax: 
"WAIT SABLE+1 : 500MS** 
Proposed CSDL Syntax: 
"WAIT SABLE* l: 500MS: 1500MS** 



~ ! ! max time 

integer result ! ! _ period 

from this 
expression 



Sample Output From Translator (unedited) 

P 47s. wait least (0TO1,8:5OO) 

Required Format for Input to CSDE Program 
(with argument explanations) 

1 2 3 4 5 6 

P 47s. wait least (0TO2.0TO1, 005, 006, 500, 1500:8,8) 

1 - variable to be used for loop counter 

2 - variable containing integer result 

3 - top label 

4 - bottom label 

5 - time period 

6 - max allowed time period 



Figure 8 Changes Required for 'S . waitleast' 
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implementation can be found in the comment lines for 
'a.setime' and 'h. clock' in Appendix E. 

The CSDL syntax currently calls for the time period 
to appear in ' s.boolwait ' and not in 's.stboolwait' . This 
is wrong because CSDE needs the time period at the beginning 
of the boolean wait construct to insure accurate timing 
statistics are kept. This is accomplished by use of an 
attribute line in 's.stboolwait' as is similarly done in the 
primitive, 's.f ixedwait' . Editing of the primitive list 
output from the Translator is required as shown in Figure 7. 

Sample Output From the Translator (unedited) 

P 36s. stbool wait (903: ) 

P 37s. eq (0TO1 , LIGHT, 0006:8,8,8) 

p 38s . boolwait (0TO1, 003, 004:8, 1700) <-- 1700 is period 

in MS 

Required Format for Input to CSDE Program 

P 36s .stboolwait (003, 1700: ) <-- time period 

P 37s. eq (0TO1 ,LIGHT,0CO6:8,8,8) here 

P 38s. bool wait (0TO1 ,003,004 :8) 

Figure 7 Changes Required For Boolean Wait Primitives 

A logical error exits in CSDL relating to the 
expression primitives that may appear between 's.stboolwait' 
and 's.boolwait'. Currently, only one expression may appear 
which means that once the boolean wait routine is entered 
there is no way that the result of the expression could 
change while waiting for the specified period to expire. 
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7. S.ln and S.ni 



These primitives are produced when a timed block ie 
specified. A timed block is a nested set of actions within 
a task or function, with its own timing criteria. This 
timing criteria is in addition to any criteria specified for 
the parent task or function in the application timing table. 
An example can be found in Appendix B within the function 
'TPOL.L'. The syntax for s.in is <TIMED_BLOCK_HEAD> IN 
<PERIOD> and for s.ni is <TIMED BLOCK>::= <TIMED_BLOCK_HEAD> 
DO <STHT GP> END IN. 

These primitives are in the same format as they 
originally appeared in Ross's 8080 Realization Volume. They 
were added to the Z-80 Volume for purposes of completeness 
only and cannot be used in their present form. This is 
because the mechanism by which the CSDE program would 
implement a nested timing requirement is not functional. 
No effort was expended to correct this problem because it 
was reasoned that if a designer had an inclination to 
specify a timed block he could just as easily take the 
actions in question and put them in a separate task or 
function . 

8. S.Stboolwait and s.boolwait 

These primitives are generated when a boolean wait 
construct is specified. This construct would be specified 
by a designer when he wanted to check the results of an 
arithmetic expression for a fixed time period. The 
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serve ae a counter for the loop structure produced by 
's.waitleaat' . Also, care must be taken when picking the 
values to be Inserted In the label arguments so that they 
are different from label names used elsewhere in the 
primitive list. 

10. Changes to Smith's Primitives 

Three of the primitives retained from Smith's Z-80 
Realization Volume were revised significantly. Many of the 
others required minor corrections, most regarding incorrect 
byte counts. In a few cases, comment lines were added to 
clarify certain points regarding the structure of a 
particular primitive. Generally, Smith was thorough and 
the logic of his Z-SO assembly code routines was flawless. 

The primitive, 's.main', appears in the second line 
of every primitive list generated by the Translator. The 
's.main' realization contains the code that appears at the 
top of every software output from CSOE. Smith included 
statements that would allow a designer to specify a debug 
mode. A controller program produced from CSDE in debug mode 
could be run and tested on a C/PH based microcomputer. 
These references to debug mode were eliminated since, with 
the use of the CSDE workstation, testing on the Pro-log is 
more effective. Another capability of 's.main' was retained 
to generate blocks of code within a controller program that 
are only executed once before the monitor loop is entered. 
Smith referred to this as hardware initializations. Although 
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not implemented in the revised Realization Volume, such 
blocks could be realized by modifying existing primitive 
realizations with 'incl' or 'call' statements. These 
statements could, in turn, reference other software 
primitives whose code would be executed only once upon 



Sample Software 

Output from CSDE Comments 



.z60 

sseg 



jp SiO <-- 

I 

• ' 

m 

(other code) 

l 

• i 

j p eeo < - - 

— > 6i0: nop 

(code here 
executed once) 

• 

- - < - - jp 6il < 

660 : nop i 

I 

• I 

(other code) ! 
->flspvsr: nop 

i 

i • 

! (monitor code) 

l 

l • 

i jp ®spvsr 



Code generated from the 
primitive 's.main' 

This instruction appears in the 
realization as 'jp ®i<initlk>' 
where initially, initlk - 0. 

This instruction would appear 
.in the realization as 
'jp 6®<arnd>' where initially, 
arnd * 0. 

This block of code is executed 
once. When the monitor starts 
executing by calling contingency 
task pairs, this block will 
always be jumped. 

The global variable, initlk, has 
been incremented so initlk = 1 . 

Monitor section. 



> - 0il : jp Qspvsr < - - This instruction comes from 

'a. end' and marks end of blocks 
of code to be executed once. 



Figure 9 Realization of Blocks of 
Code to be Executed Once Only 
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inclusion in a controller program. This feature is 
available for use, utilizing the global variables 'initlk' 
and 'arnd'. Figure 9 demonstrates how blocks of code to be 
executed once (for initializations) might be realized. 

The primitive, 's. monitor', also contained a means of 
generating code within a controller program that would only 
be executed once before entering the monitor section. This 
was different from the method use in 's.main' in that a 
boolean flag, 'Sinitial', was checked to cause a jump to 
another segment of code that might be used for such things 
as initializing variables. This initializing block of code 
was realized from two primitives, ' s. initalcons' and 
' s . initalend' . These primitives are not produced by the 
Translator and were discarded along with the statements in 
's. monitor', that referred to them. The method available in 
's.main' for initializations is simple and more flexible. 
Initial values of variables are currently set at zero when a 
controller program is assembled by use of assembler 
statements such as 'defw 0' . 

Finally, the primitive, 'h. clock', was rewritten to 
correctly describe all jumper connections required on the 
cpu board to implement a 1 millisecond clock. The original 
version of 'h. clock' listed only one of the six connections 
required to enable channel 0 to feed channel 1 of the etc. 
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IV. TESTING AND DEMONSTRATION 



The objective during testing was to verify that every 
primitive in the revised Z-80 Realization Volume could be 
processed through CSDE to produce error free code that 
would run on the Pro-Log computer. This applied to newly 
constructed primitive realizations as well as those retained 
from Smith' Z-80 Volume. All primitives were successfully 
tested at least once except for 's.in', 's.ni' , and 's.not'. 
The first two were discussed in section III.C.7. and the 
latter was not tested because the Translator would not 
generate it. Many unsuccessful attempts were made to 
discover the proper syntax for 's.not' since the Backus-Naur 
form specified by Carson failed to work. 

To minimize the potential for multiple errors within one 
test problem only one new primitive was tested at a time. 
This involved writing simple CSDL problems for each 
primitive usually with only two contingency task pairs. The 
testing was not exhaustive. For example, if a primitive 
like 'e.ge' (checks condition for greater than or equal to) 
was tested, not all possible combinations of positive and 
negative numbers were submitted as input data. This was 
because of time constraints and the fact that Smith already 
tested the logic of his Z-80 code during development of the 
original Z-80 Realization Volume. 
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As discussed below in section IV. C., the CSDE prograa 
underwent extensive revision to improve efficiency and ease 
of use. An indirect benefit of primitive testing for this 
thesis was that the revised CSDE prograa was able to be 
debugged. While important to the overall CSDE project this 
sometimes caused great frustration when CSDE program errors 
slowed down the testing process. Primitive testing also 
validated the usefulness of the CSDE workstation. 

A. TESTING SEQUENCE AND EXAMPLE 

A detailed user's manual for working within the CSDE 
environment is contained in Poole's thesis CRef. 12]. It 
specifies the exact command sequences to use the CSDE 
program on the NPGS Computer Science VMS Vax 11/780. It 
also explains how to use the CSDE workstation to transfer 
files between the Z-100 and the VAX. assemble and link Z-80 
programs produced by CSDE. and download resultant hex files 
to the Pro-Log. The process is summarized as follows. 

Once a new primitive realization was written and added 
to the Realization Volume as discussed in Chapter 3, a short 
CSDL problem was written to exercise it. Appendix B shows 
the proper CSDL format to generate every primitive except 
'8. not'. The file containing the CSDL problem was renamed 
DAT. DAT, as required for input to the Translator. The 
problem was then run through the Translator to generate the 
primitive list, application timing table, symbol table, and 
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Translator error file. These files were discussed in 
Chapter 2. It was important to view the Translator error 
file before inputting the problem to CSDE because this was 
the only way to know if the CSDL program contained any 
syntax errors. Any manual changes to the primitive list 
were made using the EDT editor available on the VAX. Next, 
the CSDE program, currently named CLIB, was run to produce a 
software listing, a hardware listing and a debug file. 
Different levels of debugging may be selected from the 
initial CLIB menu. The software listing was then downloaded 
to the Z-100 microcomputer, part of the CSDE workstation. 
On the Z-100, it was assembled and linked to produce a hex 
file. The hex file was downloaded from the Z-100 to the 
Pro-Log where it was finally executed. 

As mentioned above, different levels of debugging may be 
selected when running the CSDE program. When level 0 is 
selected only the actual error message lines will appear in 
the debug file. When level 3 is selected an extensive 
chronological record of CSDE program execution is written to 
the debug file. In most cases it was easiest to select 
level 0 and if errors developed, rerun the problem with a 
more detailed debug level selected. Another point is that 
just because the CSDE program flags errors does not mean 
that an unsatisfactory realization has been produced. In 
some cases, such as with 's.f ixedwait' , only non fatal 
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informative errors are generated. 



This was mentioned in 



section III.C.2. 

An actual test program and all related files are 
contained in Appendix F. This CSDL problem was written to 
test the primitives associated with a while-do loop. 
Referring to the problem, 'FUNCTION EACH1 ' is a contingency 
which senses an input value, stores it in the variable, 
'ARG1', and sets the boolean variable, 'EACH1', equal to -1 
if 'ARG1' is less than or equal to 2. The boolean variable 
is set equal to -1 because -1 decimal is represented by FF 
hexadecimal in twos complement form. A boolean true value 
is defined as FF hex. The net result is that if 'ARG1' is 
less than or equal to 2 than the contingency is true. The 
'CONTINGENCY LIST' specifies that if ' EACH1 ' is true then 
'TASK ONLITA' must be executed. Both the contingency and 
task must be completed within 1600 milliseconds including 
any other blocks of code that are executed during the 
remaining portion of the current monitor cycle. 

The while-do loop comprises the bulk of 'TASK ONLITA'. 
The net result of the while-do loop is that the values 1, 3, 
5, and 7 will be output at 250 ms intervals and can be 
viewed in binary form on the 8 leds of the Pro-log 
keyboard/display card. This display will only occur if the 
contingency is true, i.e. both keyboard/display card rocker 
switches are off or only the right switch is on. 
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The second contingency task pair, 'EACH5' and 'OFFLT', 
causes a S00 ms delay with all leds off for any of the four 
possible input values. See the discussion of 's.sensecond' 
in section III.C.l. for more information on the four 
possible input values. 

Following the CSDL problem are the three Translator 
output listings used by the CSDE program. They are the 
primitive list, application timing file and symbol table. 
The primitive list as shown in Appendix F, was modified from 
the original Translator output to position the value for max 
loop count as the second argument in the primitive 
's. whilestart' . See Figure 6 in section III.C.6 for an 
illustration of this change. 

Finally, the software, hardware and debug listings are 
displayed exactly as produced from the CSDE program. The 
software listing is ready to be assembled and the debug 
listing was generated in debug level 0. The errors 
contained therein are for information only and relate to the 
missing colons in the 's.f ixedwait' primitives. 

B. TRANSLATOR ERRORS 

During the course of primitive testing, some errors were 
discovered in the format of primitives generated by the 
Translator. Other Translator errors relate to the manner in 



which it handles numbers and determines the precision of 



internally generated variables. All Translator errors are 
summarized in Appendix G. 

Host format errors relate to the placement of values for 
loop counts or time within the primitive title lines. These 
have been documented in Chapter III.C. and apply to the 
following primitives: "s.forcons", ' s . whilestart ' , 
'a.whilecon" , ' s.stboolwait " , ' s . bool wait " , and 
'a.waitleast' . The primitive realization for 's.waitleast' 
also contains many more arguments than in the Translator 
version and modification to its syntax in CSDL is also 
required. This is detailed in section III.C. 9. A final 
format error is that the primitive, "s.f ixedwait' , is 
generated without the required colon after the value for 
time. The functional mapper module of the CSDE program has 
been modified to accommodate this error. When encountered 
by the CSDE program, error messages are generated and then 
the required colon is inserted in the correct location. All 
errors except for 's.f ixedwait" require manual correction by 
editing the primitive list prior to running the CSDE 
program . 

Although CSDL syntax rules allow time units as small as 
nanoseconds, the Translator correctly generates only time 
values accurate to the next lowest millisecond. For 
example, if a CSDL problem contained the statement, "WAIT 
600 US" , the Translator would generate the primitive, 
"s.f ixedwait (0)". All time values generated by the 
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Translator are In milliseconds and any primitive 
realizations that take input values of time must be written 
accordingly. Milliseconds are excellent time units when 
long delays are required, especially for demonstration 
programs that utilize the leds on the Pro-log 
keyboard/display board. However, for more flexibility in 
possible controller designs, the shorter time units should 
be available for use. This is because some applications, 
for example a }et engine start controller, might require 
more stringent response times. 

There are two other problems relating to the 
Translator's handling of numbers in general. One is that it 
only recognizes integers. For example, if a CSDL problem 
segment was written as ' COUNT : =C0UNT*10 .6' , the number, 
10.6, would be passed to the primitive list as simply 10. 
The second problem involves the criteria used to create 16 
bit constants instead of 8 bit constants. For example, if a 
CSDL problem segment was written as 'COUNT: *128' , the 
primitive, 's.cons (GC01 , 128:8) ' would appear in the 
primitive list. If the value was 129 instead of 128, the 
primitive, 's.cons C9C01 , 129 : 16) ' would appear. This is 
wrong because the largest positive twos complement number 
that can be specified in an 8 bit word is 127. Therefore 
the decision point for specifying 8 bit or 16 bit constants 
should be between 127 and 128, not 128 and 129. 
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One other error relating to the precision of variables 
occurs when dealing with primitives that use boolean 

variables. For example, the primitive, 's.eq', has three 
arguments and compares the values of the second and third 
arguments for equality. Upon completion of the equality 
test, the first argument is set equal to FF hex for true or 
00 hex for false. Since the first argument is always used 
as a boolean variable, an 8 bit precision will always be 
sufficient even if the other arguments call for 16 bit 
precision. All relational primitive realizations were 
written assuming the boolean argument will always have an 8 
bit precision. Unfortunately, the Translator generates a 16 
bit boolean argument whenever either of the other arguments 

Example Relational Primitive (unedited) 

P 30s. eq (TS11 , ARG1 , CONST: 16, 16, 16) 

!_ 16 bit variable generated 

by Translator to pass 
boolean result; only needs 
to have 8 bit precision 

Required Format for Input to CSDE Program 
P 30s. eq (T0O1 , ARG1 ,C0NST :8, 16,16) 

Figure 10 Changes Required for Relational Primitives 

has a 16 bit precision. This results in criteria check 
errors from the CSDE program whenever large numbers 
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requiring 16 bit precision are cospared within a relational 
primitive. Primitive lists containing such errors must be 
corrected before running the CSDE program. An example is 
contained in Figure 10. 

The final Translator error requiring correction is that 
if variables are declared as type DUPLEX, any subsequent use 
of those variables in a 'SENSE ' , or 'ISSUE' statement 
results in syntax error messages. This is wrong because the 
whole concept of DUPLEX type variables involves their use 
for either input or output. This was discussed in section 
III.C.l. 

C. THE CSDE PROGRAM 

As mentioned in Chapter I, the CSDE program underwent 



revision during 


the course of 


research 


for 


this 


thesis . 


Most changes 


are 


transparent 


to the 


user 


and 


involved 


streamlining 


the 


CSDE program 


source 


code 


to 


improve 


efficiency . 


Additional improvements 


over 


the 


NEWCSDL 



version used by Smith and Riley include the addition of a 
user friendly menu and elimination of the need for the 
input file, MONTER.DAT. This file contained the primitives 
required to generate the monitor section of a controller 
program. The monitor primitives were already contained in 
the Realization Volume and thus, MONTER.DAT was really not 
needed . 
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The revised CSDE program, CLIB, was exercised frequently 
while developing and testing new primitive realizations. 
Many errors that had been introduced during its revision 
were identified and corrected as testing progressed. The 
importance of good communication between the user (me) and 
software maintenance personnel (Hr. Lukas) was made very 
clear. Despite delays due to errors in CLIB, testing for 
this thesis could not have been completed without it. The 
CSDE workstation also proved invaluable in reducing testing 
time per primitive compared to the methods used by Smith. 

Realization testing and debugging CLIB uncovered an 
important idiosyncrasy of CSDE. Specifically, the input 
file containing the list of global variables, usually named 
GLOBALS.DAT, has a strict format. Certain positions within 
the globals file are reserved for global variables used 
internally by CLIB. If a new global variable used within a 
primitive realization is accidentally placed in one of these 
'hard wired' positions unpredictable errors will be 
generated. The current global variable file contains some 
global variables that are not found in the Revised Z-80 
Realization Volume. These variables were added by Smith 
because they were used in some of his primitive realizations 



from the 


original 


Z-80 


Realization Volume 


. Since 


these 


primitives 


have 


been 


deleted 


from the 


Revised 


Z-80 


Realization 


Volume, 


some global 


variables 


added by 


Smith 



serve no function as far as primitives are concerned . 



SO 



However, because of their position in GLOBALS.DAT they might 
still be used internally by CLIB. Thus, global variables 
not found in the Revised Realization Volume have been 
retained to insure that CLIB runs correctly. If any new 
global variables are added in the future they should be 
added at the bottom of the file. Also, the number at the 
top of the file, indicating the total number of global 
variables, should be adjusted accordingly. Figure 11 
displays the contents of the current global variable file. 



61 



Contents of 
Global Variable File 



Applicable Notes 



022 

arnd 0. 


1,2,3 


bdos 5 . 


2,3 


chips 0. 


2,4 


clock 0. 


5 


initlkO. 


1,3,5 


reps 1 . 


4 , 5 , S 


natodeO. 


2,3 


natodpO. 


2,3,6 


ndtoaeO. 


2,3 


ndtoapO. 


2,3 


ninoutO . 


2,3 


nkey 0. 


2,3 


nled -1. 


2,3 


nodgt 0. 


2,3 


norom 0. 


2,3 


nrockrO . 


2,3 


ramptrO. 


3,5 


romptrO. 


3,5 


scrtchO. 


3,5 


slot 0. 


3,5 


keybrdO. 


3,5 


tmblckO. 


3,5 



Note Explanations 

1 -- Available for use if initialization 

primitives are added. See Figure 9. 

2 -- Not used in Revised Z-80 Realization Volume. 

3 -- Added by Smith, used in original Z-SO 

Realization Volume. 

4 -- Used internally by the CSDE program, CLIB. 

5 -- Used in Revised Z-80 Realization Volume. 

6 -- Known 'hard wired' position used by CLIB. 



Figure 11 Contents of Global Variable File 
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V. CONCLUSIONS 



The goals for this thesis have been accomplished. All 
but a few discrepancies have been resolved between the 
Translator and the Z-80 Realization Volume. Numerous test 
problems have been run through the entire CSDE system, from 
CSDL problem statement to operating program on the Pro- log 
microcomputer. These test problems, as implemented on the 
Pro-log, can be considered true controller realizations 
since changes in input values result in different output 
values. 

More complex problems should be demonstrated in the 
future. This will require the addition of more complex I/O 
hardware with accompanying modification to the I/O primitive 
realizations. If, for example, Riley's jet engine 
controller were to be demonstrated, a means would also be 
needed of simulating the various parameters to be sensed. 
An array of potentiometers connected to analog to digital 
converters might be utilized for this purpose. Similarly, 
outputs from the controller would need to be displayed 
differently than the current method using leda. Complex 
problems might require more memory than the currently 
available 16k RAH. 

The Translator errors discussed in chapter IV should be 
corrected. This would result in complete compatibility 
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between component parte of CSDE and would eliminate the need 
for manual modification of intermediate primitive lista. 
Another modification to the Translator might be to improve 
the clarity of its error messages when CSDL syntax errors 
are encountered. Currently, these messages are extremely 
difficult to understand since they only point out the 
location of a syntax error within a CSDL problem. Until a 
syntax directed editor or language manual is developed for 
CSDL, the error detection facility of the Translator is the 
only aid available for writing correct CSDL problems. 

This thesis research was primarily an exercise in 
software maintenance. The problems encountered and effort 
expended to solve those problems were invaluable in 
demonstrating why software maintenance requires such large 
proportions of government and industry data processing 
resources. For example, the concept of continuity between 
development personnel became quite clear as many questions 
arose concerning previous researchers work. Had personnel 
such as Carson, Smith, and Riley been available for 
consultation, much time probably could have been saved. 
The importance of good communication between users and 
maintenance personnel was proven as the revised CSDE program 
was successfully debugged. This also illustrated the 
difficulties that arise when two components of a system that 
affect each other undergo maintenance at the same time. 
Errors in the revised CSDE program caused some unanticipated 
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delays in the testing of new primitive 
Finally, good documentation is mandatory for 
software maintenance project. 



realizations . 
a successful 
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APPENDIX A 



PRIMITIVES AVAILABLE FROM TRANSLATOR 

This appendix contains a list of all primititives that 
can be produced by Carson's translator. The corresponding 
production number can be used to find the Backus-Naur syntax 
structure in the listing of the CSDL language in Carson's 
thesis CRef 8: pp. 47-541 . A brief phrase describing each 
primitive is also supplied. 

PRIMITIVE PROD NUMBER MEANING 



ADD 


23 


Addition 


SUB 


21 


Subtraction 


MULT 


23 


Multiply 


DIVIDE 


23 


Divide 


LT 


25 


Less Than 


LE 


25 


Less Than or Equal To 


EQ 


25 


Equal To 


GT 


25 


Greater Than 


GE 


25 


Greater Than of Equal 


NE 


25 


Not Equal To 


NOT* 


22 


Boolean Not 


AND 


27 


Boolean And 


OR 


29 


Boolean Or 


IMPLICATE 


31 


Logical Implication 


EQUIVALENC 


33 


Logical Equivalence 


LOC 


37 


Location in IF THEN 


JHPF 


38 


Jump If False 


WHEND 


39 


End of WHILE Construct 


WHILECON 


40 


Test Portion of WHILE 
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WHILESTART 


41 


Beginning of WHILE Construct 


FOREND 


42 


End of FOR LOOP 


FORCONS 


43 


Condition Tested in FOR LOOP 


CALL 


44 


Generate a Pocedure Call 


ASSIGN 


49 


Assignment Statement 


SENSECOND 


50 


Sense a Condition for Data Input 


ISSUEVENT 


51 


Data Output 


NI 


61 


End of IN Construct (Timed Block) 


IN 


62 


Beginning of IN Construct 


FIXEDWAIT 


63 


Timed Software Delay 


WAITLEAST 


64 


Minimum Wait 


BOOLWAIT 


65 


Body of Boolean Wait Constuct 


STBOOLWAIT 


66 


Wait Until (Start of Boolean 
Wait Construct) 


INPUTPORT 


86 


Input Specification 


OUTPUTPORT 


87 


Output Specification 


IN/OUTPORT 


94 


Duplex (input or output) Spec 


VAR 


105 


Variable Assignment 


EXITPROC 


146 


Marks Exit of Procedure, 
Function, or Task 


PROC 


145 


Marks Beginning of Procedure, 
Function, or Task 


SYSTEM 


190 


Generates System Title 


e 


102 


Generated by Translator as 
Location Assignment Place 
Holders 


CONS 


190 


Constant 



• Although the Translator is supposed to be able to 
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generate a 'NOT' primitive, attempts to do so were 
unsuccessful . 
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APPENDIX B 



CSDL TEST PROGRAM 

This appendix contains Carson's CSDL test program to 
exercise the Translator to produce all possible primitives. 
As originally written, it did not contain the CSDL 
structures to produce the primitives, 's.sub' , 's.not', 
's.call', and 's.waitleast' . Structures have been added to 
produce all except 's.not'. Also, the structure, 'DO MANUAL 
4;', originally found in the contingency list, caused the 
Translator to produce an error message even though it 
appeared to be correct according to CSDL. This structure 
was deleted. The resulting primitive list and application 
timing table are contained in Appendix C. 



DESIGNER : "HILL CARSON/ MODIFIED BY BOB VOGEL" 
DATE : "05-31-84/02-20-85" 

PROJECT :"TEST PROGRAM TO EXERCISE TRANSLATOR" 



DESIGN CRITERIA 

METRIC FIRST; 
VOLUMES 1; 
MONITORS 1; 



ENVIRONMENT 

INPUT : KEYFLG , 1 , TTL ; KEYCHAR , 8 , TTL ; 

ACNUM,8,TTL; 

END INPUT; 

OUTPUT: MENU, 8, TTL; POLL, 8, TTL; END OUTPUT; 

DUPLEX MSG VDT , 8 , TTL ; END DUPLEX; 

ARITHMETIC: KEYINMAIN,S; MINTAC,8; MMSGDSPLY,8; 
ACO, 8; AC1 ,8; AC2,8; AC3,8; AC4,8; 
INTPERI0D,8; MSG0,8; 

MSG1 ,8; MSG2,8; 

NEXT AC, 8; TP0LL,1; COUNT, 8; 

END ARITHMETIC; 
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PROCEDURES 



FUNCTION KEYINMAIN: 

BINARY, 1; 

SENSE (KEYFLG) ; 

IF KEYFLG* 1 THEN KEYINMAIN :* 1 ; END IF; 
END KEYINMAIN; 

TASK KBINPMAIN; 

MENU : *0; ISSUE (MENU); 

SENSE (KEYCHAR); 

IF KEYCHAR* 1 THEN MINTAC 1*1; END IF; 
WAIT 10MS; 

END KBINPMAIN; 



TASK MANUAL; 

IF AC0/*0 THEN P0LL:*0; ISSUE (POLL); END IF; 
IF AC1<0 THEN P0LL.* = 1; ISSUE (POLL); END IF; 
IF AC2<=0 THEN P0LL:*2; ISSUE (POLL); END IF; 
IF AC3>=0 THEN P0LL:*3; ISSUE (POLL); END IF; 
IF AC4>0 THEN P0LL:*4; ISSUE (POLL); END IF; 
END MANUAL; 



FUNCTION TPOLL: 

BINARY, 1; 

IF INTPERI0D*30 THEN IN 30 M DO TPOLL :*1; END IN; 
END IF; 

END TPOLL; 



TASK MSGDSPLY ; 

KBINPMAIN; 

MMSGDSPLY : =0; 

WAIT MMSGDSPLY 1 ; 500MS; 

WAIT UNTIL MMSGDSPLY * O: 10MS; 
END MSGDSPLY; 



TASK LOGIN; 

ACNUM:=0; 

FOR COUNT FROM 1 TO 4:4 DO 
SENSE (KEYCHAR); 

ACNUM: =ACNUM-5; 

ACNUM: * (ACNUM-10) +KEYCHAR ; 
END FOR; 
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IF NEXTAC=0 AND AC0=0 THEN ACO:=ACNUM 
IF NEXTAC*1 OR AC1=0 THEN AC1:=ACNUM; 
IF NEXTAC=2 => AC2*0 THEN AC2:=ACNUM; 
IF NEXTAC=3 == AC3=0 THEN AC3:=ACNUM; 
WHILE ACNUM » 1 .* 4 DO 
AC4 : = 4; 

ACNUM :* ACNUM ♦ 1; 

END WHILE; 

END LOGIN; 



TASK LOGOUT; 

ACNUM: *0; 

FOR COUNT FROM 1 TO 4:4 DO 
SENSE (KEYCHAR); 

ACNUM : = < ACNUM* 10 ) /KEYCHAR ; 
END FOR; 

IF ACO* ACNUM THEN AC0:*0; END IF; 
END LOGOUT; 



CONTINGENCY LIST 

WHEN KEYINMAIN : 100 MS DO KBINPMAIN ; 
EVERY 20MS DO KBINPMAIN; 

AT 300MS DO KBINPMAIN; 

END 



END IF; 
END IF; 
END IF; 
END IF; 
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APPENDIX C 



PRIMITIVE LIST, APPLICATION TIMING TABLE AND SYMBOL 
TABLE PRODUCED BY TRANSLATOR FROM CSDL TEST PROGRAM 

This appendix contains the unedited output from the 
Translator that results from the CSDL test program in 
Appendix B. The first item is the primitive list that comes 
out in the file PRIMFILE.DAT, the second item is the 
application timing table that comes out in the file 
IADEFL.DAT, and the last item is the symbol table that comes 
out in the file, SYMFILE.DAT. 



PRIMFILE.DAT 



P 2s. MAIN 
P 3d: FIRST 
P 4s.inputport 
P Ss.inputport 
P 6s.inputport 
P 7s . outputport 
P Ss. outputport 
P 9s. in/outport 
P 10s. var 
P 11s. var 
P 12s. var 
P 13a. var 
P 14s. var 
P 15s. var 
P 16s. var 
P 17s. var 
P Ids. var 
P 19s. var 
P 20s. var 
P 21s. var 
P 22s. var 
P 23s. var 
P 24s. var 
P 25t . generated 
P 26s.proc 
P 27s . aenaecond 
P 28s . eq 
P 29s . jmpf 
P 30s. assign 
P 31s. loc 
P 32s.exitproc 
P 33t .generated 
P 34s.proc 
P 35s. assign 
P 36a . issuevent 



c :) 



l: 



l : 



(KEYFLG,TTL: 1 ) 
<KEYCHAR,TTL:8> 
(ACNUM,TTL:8) 
<MENU,TTL*.8> 

<poll,ttl:8> 

<MSGVDT,TTL:8) 

<KEYINMAIN:8,0> 

(MINTAC:S,0) 

( MMSGDSPLY : 8 , 0 > 

(AC0:8,0) 

CACl:8,0) 

<AC2:8,0> 

(AC3:8,0> 

( AC4 : 8 , 0) 

( INTPERI0D : 8 , 0 ) 

(msgo:8,o) 

<MSGl:8,0> 

( HSG2 : 8,0) 

(NEXTAC:8,0) 

(TP0LL:i,O) 

(COUNT: 8,0) 
for: KEYINMAIN 
(KEYINMAIN: ) 

(KEYFLG: 1> 

( 0TO1 , KEYFLG , 6C01 : 8 , 1 , 8 ) 
<eT0i,aoi:8> 

(KEYINMAIN, 9C01 : 1,8) 
( 001 : ) 

(KEYINMAIN: ) 
for: KBINPMAIN 
(KBINPMAIN: ) 

( MENU , 0CO2 : 8 ,8 > 

(MENU : 8) 



p 

p 

p 

p 

p 

p 

p 

p 

p 

p 

p 

p 

p 

p 
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p 

p 

p 

p 

p 

p 

p 

p 

p 

p 

p 

p 

p 

p 

p 

p 

p 



37s . ssnsscond 
38s . eq 
39s. japf 
40s. assign 
41s. loc 
42s . f ixedwait 
43s.exitproc 
44t . generated 
45s.proc 
46s. ne 
47s. jspf 
48s. assign 
49s . issuevent 
50s. loc 
51s.lt 
52s. japf 
53s. assign 
54s . issuevent 
55s. loc 
56s. le 
57s. jspf 
58a. assign 
59s. issuevent 
60s. loc 
61s. ge 
62s. jspf 
63s. assign 
64a . issuevent 
65s. loc 



<KEYCHAR:8> 

C 0TO1 , KEYCHAR , 0CO1 : 8 , 8 , 8 ) 
(0TO1 , 002 : 8) 
(MINTAC,0CO1:8,8> 

( 002 : ) 

( 10 ) 

(kbinpmain: > 

for: MANUAL 
(MANUAL: ) 

(0TO1 , ACO.0CO2 :8,8,8) 

(0TO1,0O3:8) 

(POLL,0CO2:8,8) 

(P0LL:8) 

(003: > 

( 0TO1 , AC1 , 0CO2 : 8 , 8 , 8 ) 
(0TO1 ,004:8) 

(POLL.0CO1 :8,8) 

(P0LL:8) 

(004: ) 

(0TO1,AC2,0CO2:8,8,8) 
(0TO1 ,005:8) 

( POLL , 0CO3 : 8 , 8 ) 

(P0LL:8) 

(005: ) 

(0TO1 , AC3, 0002 : 8, 8, 8) 
(0TO1 ,006:8) 

( POLL , 0CO4 : 8 , 8 ) 

(P0LL:8) 

(006: ) 



66a . gt 
67s. japf 
68s. assign 
69s . issuevent 
70s. loc 
71s.exitproc 
72t . generated 
73a.proc 
74a .eq 
75s. jspf 
76s. in 
77a. assign 
78a. ni 
79s. loc 
80s.exitproc 
8 1 t . generated 
82s . proc 
83s. call 
84s. assign 
85s . add 
86a . waitleast 



( 0TO1 , AC4 , 0CO2 : 8 , 8 , 8 ) 

(0TO1, 007:8) 

(POLL,0CO5:8,8) 

(POLL: 8) 

(007: ) 

(MANUAL: ) 

for: TPOLL «» 

(TPOLL: ) 

( 0TO1 r INTPERIOD , 0CO6 : 8 , 8 , 8 ) 
(0TO1 ,008:8) 

(1800000) 

(TPOLL. 0CO1 : 1 , 8) 

( : : ) 

(008: ) 

(TPOLL: ) 

for: MSGDSPLY «« 

(MSGDSPLY: ) 

(KBINPMAIN:) 

( MMSGDSPLY , 0CO2 : 8 , 8 ) 

( 0TO1 , MMSGDSPLY , 0CO1 
(0TO1,8:5OO) 



87s . atboolwait (009 : ) 
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88a 

89a 

90a 

91t 

92a 

93a 

94a 

95a 

96a 

97a 

98a 

99a 

100a 

101a 

102a 

103a 

104a 

105a 

106a 

107a 

108a 

109a 

110a 

111a 

112a 

113a 

114a 

115a 

116a 

117a 

118a 

119a 

120a 

121a 

122a 

123a 

124a 

125a 

126a 

127a 

128a 

129a 

130a 

131a 

132a 

133a 

134t 

135a 

136a 

137a 

138a 



.aq ( 0TO1 , MMSGDSPLY , 0CO2 : 8 , 8 , 8 ) 

.boolwait (0TO1 ,009,010:8, 10) 
.axitproc (MSGDSPLY:) 

. ganerated for: LOGIN * * 



. proc 

. aaalgn 

. forcona 

. aenaecond 

. aub 

.aaalgn 

.mult 

.add 

. aaalgn 

.forend 

.aq 

.eq 

.and 

.jmpf 

.aaalgn 

. loc 

. eq 

.eq 

.or 

.jmpf 

.aaalgn 

. loc 

.aq 

.eq 



(LOGIN: ) 

( ACNUM ,0CO2 : 8 , 8 ) 

(COUNT, 0CO1, 0005,011, 012: 8, 8, 
(KEYCHAR:8> 

(0TO1 , ACNUM, 0CO7 :8,8,8) 

( ACNUM, 0TO1 :8 ,8) 

(0TO1 , ACNUM,0CO8:8,8,8) 

( 0TO1 ,0TO1 , KEYCHAR :S , 8,8) 

( ACNUM, 0TO1 :8, 8) 

(COUNT, 011, 012:8, 4) 

( 0TO 1 , NEXT AC , 0CO2 : 8 , 8 , 8 ) 

( 0TO2 , ACO , 0CO2 : 8 , 8 , 8 > 

(0TO1 , 0TO1 , 0TO2 : 8, 8, 8) 

(0TO1, 013:8) 

(ACO, ACNUM :8, 8) 

(013*. ) 

(0TO1 , NEXTAC, 0CO1 : 8, 8,8) 
(0TO2, AC1 , 0CO2 :8 ,8 , 8) 

(0TO1 , 0TO1 , 0TO2 : 8, 8 , 8) 

(0TO1, 014:8) 

( AC1 , ACNUM : 8, 8) 

(014: ) 

(0TO1 ,NEXTAC,0CO3:8,8,8) 

( 0TO2 , AC2 , 0CO2 : 8 , 8 , 8 ) 



. Implicate ( 0TO1 , 0TO1 , 0TO2 : 8 , 8 , 8 ) 

.jmpf (0TO1, 015:8) 

.aaalgn ( AC2 , ACNUM : 8 , 8 ) 

.loc (015:) 

.eq (0TO1 , NEXTAC, 0CO4 : 8 , 8, 8) 

.eq ( 0TO2 , AC3 , 0CO2 : 8 , 8 , 8 ) 

. equi valenc ( 0TO1 , 0TO1 , 0TO2 .*8,8,8) 

.jmpf (0TO1, 016:8) 

.aaalgn ( AC3, ACNUM :8,8) 

.loc (016:) 

. whlleatart (017: ) 

.eq ( 0TO1 , ACNUM , 0CO1 : 8 , 8 , 8 ) 

. whllecon (0TO1, 018:4) 

.aaalgn (AC4,0CO5:8,S) 

.add (0TO1 , ACNUM, 0CO1 : 8, 8, 8) 

.aaalgn ( ACNUM, 0TO1 .*8,8) 

. whend (017,018:) 

.exitproc (LOGIN:) 

.generated for: LOGOUT «*«« 

•proc (LOGOUT:) 

.aaalgn (ACNUM,0CO2:8,8) 

•forcona ( COUNT , 0CO1 , 0CO5 , 019 , ©20 : 8 , 8 , 

.aenaecond ( KEYCHAR :8) 



8,4) 



8,4) 
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P 139s . mult 
P 140a. divide 
P 141s. assign 
P 142a. for and 
P 143s. eq 
P 144s. jspf 
P 145s. assign 
P 146s. loc 
P 147s.exitproc 
P 1 48t . generated 
P 149s. cons 
P 150s. cons 
P 151s. cons 
P 152s. cons 
P 153s. cons 
P 154s. cons 
P 155s. cons 
P 156s. cons 
P 157s. var 
P 158s. var 



(0TO1,ACNUM,0CO8:8,8,8) 

( 0TO 1 , 0TO 1 , KEYCH AR : 8 , 8 , 8 ) 
( ACNUM , 0TO1 : 8 , 8 > 

(COUNT, 019, 020: 8, 4) 

(@T01 , ACO, ACNUM : 8, 8, 8) 
(@T01 ,021 :8) 

( ACO , 0CO2 : 8 , 8 ) 

(021 :> 

(LOGOUT:) 
for : SYSTEM 

(@C01,1:8) 

(0CO2,O:8) 

(@C03,2:8) 

(@C04,3:8) 

(0CO5,4:8) 

(0CO6,3O:8) 

(0CO7,5:8) 

(0CO8,1O:8) 

(0TOl:8) 

(0TO2 :8) 



IADEFL.DAT 



A 


l : 


: KBINPMAIN 


:MS: 


100, 


0, 


0, 


0, 


0 


A 


2 : 


:kbinpmain 


:MS: 


20, 


0, 


0, 


0, 


0 


A 


3 : 


: KBINPMAIN 


:ms: 


300, 


0, 


0, 


0, 


0 



SYMFILE.DAT 



S. INPUTPORT(KEYFLG,TTL:l) 
S. INPUTPORT (KEYCHAR,TTL:8) 
S. INPUTPORT ( ACNUM, TTL:8) 

S . OUTPUTPORT (MENU , TTL : 8 ) 

S . OUTPUTPORT ( POLL , TTL : 8 ) 

S . IN /OUTPORT ( MSGVDT , TTL : 8 ) 
S. VARIABLE (KEYINMAIN:8,0) 



S. VARIABLE 
S. VARIABLE 
S. VARIABLE 
S. VARIABLE 
S. VARIABLE 
S. VARIABLE 
S. VARIABLE 
S. VARIABLE 
S. VARIABLE 
S. VARIABLE 
S. VARIABLE 



(MINTAC:8,0) 

(mmsgdsply:8,o) 

(ACO:8,0) 

(ACl:8,0) 

(AC2:8,0) 

(AC3:8,0) 

(AC4:8,0) 

(INTPERI0D:8,0) 

(MSG0:8,0) 

(MSG1 :8,0) 
(MSG2:8,0) 
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S. VARIABLE 
S. VARIABLE 
S. VARIABLE 
S.LOC 
S.LOC 
S.LOC 
S.LOC 
S.LOC 
S.LOC 
S.LOC 
S.LOC 
S.LOC 
S.LOC 
S.LOC 
S.LOC 
S.LOC 
S . CONS 
S . CONS 
S . CONS 
S . CONS 
S . CONS 
S . CONS 
S . CONS 
S . CONS 



<NEXTAC:8,0> 

ctpoll:i,o> 

<C0UNT:8,0) 
<001: ) 

<002: > 

<003: > 

<004: ) 

<005: > 

<008: > 

<007: > 

<008: > 

<013: ) 

<014: ) 

<015: ) 

<018: > 

< 021 :> 

<0COl:l,8) 

<0CO2:O,8> 

<0CO3:2,8) 

<0CO4:3,8> 

< ©COS : 4 , 8 ) 
<0CO6:3O,8) 
<0CO7:5,8> 
<0CO8:1O,8) 



76 



APPENDIX D 



COMPARISON OF PRIMITIVES 



This appendix displays a comparison of the primitives 
available from the Revised Z-SO Realization Volume (Appendix 
E) and the primitives available from the Translator. 
Primitives from the Revised Volume are in the same format as 
they appear in the index in Appendix E except that the seven 
numeric values following the second column are not shown. 
Primitives from the Translator are in the same format as they 
appear in the primitive listing that is generated by the 
Translator when Carson's CSDL test program (Appendx C> is run 
through it. Differences in the arrangement of arguments 
between some Realization and Translator primitives are due 
errors in the Translator (summarized in Appendix G) . The 
primitive, ' s . in/outport ' , was not added to the Realization 
Volume . 



REVISED Z-flO VOLUME CARSON’S TRANSLATOR 



s. add 


(rslt,argl,arg2:0,8,0,8,0,8: ) 


s.add 


(8T01, 8T01, KEYCHAR:8, 8, 8) 


s.add 


(rslt,argl,arg2:0, 16,0,16,0, 16: ) 






s. and 


(rslt,argl,arg2:0,8,0,8,0,8: ) 


s.and 


(8T01, 8T01, 8T02:8, 8, 8) 


s. assign 


(var, data: 0,8, 0,8: ) 


s. assign 


(KEYINNAIN, 8C01:1,8) 


s. assign 


(var,data:0, 16,0,16: ) 






s. boolwait 


(rslt, top, bot:0,8: ) 


s. bool wait 


(9T01, 809, 810:8, 10) 


s.call 


(naa:: ) 


s.call 


(QNLITfl: ) 


5 . cons 


(naa,val, :0,8: ) 


s.cons 


(8C01, 1:8) 


s.cons 


(nai,val, :0, 16: ) 






s. divide 


(rslt,argl,arg2:0,B,0,8,0,8: ) 


s. divide 


(8T01, 8T01, KEYCHAR:8, 8, 8) 


s. divide 


(rslt, argl,arg2:0, 16,0, 16,0, 16: ) 






s.end 


(:: )* 






s.eq 


(rslt,argl,arg2:0,8,0,8,0, 8: ) 


s.eq 


(8T01, KEYFLG, 8C01 :8, 1, 8) 


s.eq 


(rslt, argl,arg2:0, 8,0, 16,0, 16: ) 
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s. equivalenc (rslt , argi, arg2:0, 8, 0, 8, 0, 8: ) 


s. equivalent 


(0TO1,0TO1,0TO2:B, 8,8) 


s,exitprx 


(naa :: ) 


s. exitproc 


(KEYINHAIN:) 


s. fixed wait 


(tiae:0, 1275: ) 


s. fixed wait 


(10) 


s.forcons 


( indx, lwr , upr , slab, elab, val :0, 8, 0, 8, 0, 8: > s. forcons 


(COUNT, 0CO1 , 0CO5, 81 1, 812 :8, 8, 8, ♦> 


s. forend 


(indx, slab, elab:0,Q: ) 


s, forend 


(COUNT, 811, 812:8, 4) 


s.ge 


<rslt,argl,arg2:0,8,0,8,0,8: ) 


s.ge 


(0TO1, AC3, 0CO2:8, 8, 8) 


s. ge 


(rslt, argi, arg2:0, 8,0, 16,0, 16: ) 






s.gt 


<rslt,argl,arg2:0,8,0,8,0,8: > 


s. gt 


(0TO1, AC4, 0CO2:8, 8, 8) 


s. gt 


(rslt, argi, arg2:0, 8,0, 16,0, 16: ) 






s. implicate 


(rslt,argl,arg2:0,8,0,8,0,8: ) 


s. iiplicate 


(0TO1, 0TO1, 0TO2:8, 8, 8) 


s. in 


(:: )** 


s. in 


(1800000) 






5. in/out port 


(NS6VDT, TTL:8) 


s. input port 


(innaa,tech:0,8: ) 


s. input port 


(KEYFL6, TTL: 8) 


s. issuevent 


(outm:0,8: ) 


s. issuevent 


(HENU:8) 


s.j«pf 


(val, lx :0,8: ) 


s.japf 


(0TO1, 001:8) 


5a le 


(rslt,argl,arg2:0,8,0,8, 0,8: ) 


s. le 


(0TO1, AC2, 0CO2:8, 8, 8) 


s. le 


(rslt, argl,arg2:0, 8,0, 16,0, 16: ) 






s. loc 


(lx :: ) 


s. loc 


(001:) 


5. It 


(rslt,argl,arg2:0,8,0,8,0,8: ) 


Salt 


(0TO1,AC1, 0002:8,8, 8) 


Salt 


(rslt, argl,arg2:0, 8,0, 16,0, 16: ) 






s. aain 


( :: )* 






s.Bonitor 


( :: >* 






SaBUlt 


(rslt,argl,arg2:0,8,0,8,0,8: ) 


s. suit 


(0TO1 , ACNLM, 0CO7 :8, 8, 8) 


S.BUlt 


(rslt, argl,arg2:0, 16,0,8,0,8: ) 






5. BUlt 


(rslt,argl,arg2:0, 16,0, 16,0, 16: ) 






s.ne 


(rslt,argl,arg2:0,8,0,8,0,8: ) 


s.ne 


(0TO1, AC0, 0CO2:8, 8, 8) 
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s. re 



<rslt,argl,arg2:0,8,0, 16,0, 16: ) 



5.ni 


(:: )** 


s. ni 


<::) 


s.not 


(rslt,argl:0,8,0,B: ) 


s.not 


???? 


s. or 


(rslt,argl,arg2:0,8,0,8,0,8: ) 


s. or 


(8T01,8T01, 9T02:8, 8, 8) 


s.outputport(outm,tech:0,8: ) 


s. out put port 


(MENU,TTL:8) 


s. proc 


(nai : : ) 


s. proc 


(KEYINMflIN:) 


s.sensecond 


(innaa:0,8: ) 


s.sensecond 


(KEYFL6: 1) 


s.setiae 


(clkti«:0, 32768: )*** 






s.stboolMait<top,Mxta:: ) 


s.stboolaait 


(809:) 


s.sub 


(rslt,argl,arg2:0,8,0,8,0,8: ) 


s. sub 


(8T01,8C01,8C02:8, 8, 8) 


s. sub 


(rslt,argl,arg2:0, 16,0, 16,0, 16: ) 






s.tabaccp£ 


(:: 1* 






s.tabend 


< :: )* 






s.tabent 


(fnc,task :: )* 






s.var 


(nae:0,8: ) 


s.var 


(KEYIWAIN:8, 0) **** 


s.var 


<naae:0, 16: ) 


s.var 


(8101:8)**** 


s. wait least 


<indx,upr,top,bot,per,iax:0,8,0,8: ) 


s.nait least 


(8T01, 8:500) 


s. attend 


(top,bot:: ) 


s. Nhend 


(817,818:) 


s.Mhilecon 


(rslt, bot:0,8: ) 


s.nhilecon 


(8T01, 918:4) 


s.Hhilestartltop, lpct:: ) 


s.whilestart 


(817:) 



« Theae primitives are used by the CSDE system to 
construct the monitor section of the generated 
controller program. Although they must be present in 
the Realization Volume, they are not produced by the 
Translator because the monitor strategy is not 
controlled by the designer who writes the CSDL 
problem . 

•• These primitives were added to the Realization Volume 

for completeness but are not useable as currently 

implemented. 
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« * « 



This primitive is called by ' s . stboolwait ' . 



« « • « 

???? 



The Translator produces 2 versions of 's.var' and both 
are compatible with the Realization Volume. 

This Translator primitive was not generated 
by Carson's original CSOL test program and 
aubseqent attempts to generate it proved 
unsuccessful . 
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APPENDIX E 



REVISED Z-80 REALIZATION VOLUME 



This 

Volume. 

original 



appendix displays the revised Z-80 Realization 
It contains primitives retained from Smith's 
Z-80 Volume plus newly constructed primitives. 



vOOOO z80 cpu 
vOS72h. cardcage ( : 
vl005h.clock (: 

vl029h. keydisplay ( : 
v0877h.iwory (: 

v0847h. processor (: 
v0898h. tcardcage (: 



: clpper=0.25 : ■e*dly=0. 25 : ■oncst=10: 

, ,0,0,872,876) 

, ,0,0,1005,1028) 

, ,6,8,1029,1048) 

, ,2,3,877,897) 

, ,2,3,847,871) 

, ,0,0,898,904) 
vl228h. uart , ,0,0,1228,1242) 

v 1206s. call (naa :: 3, 17,5,7,0, 1206, 1213) 

v0354s. add (rslt, argl, arg2:0,8, 0, 8, 0, 8:23, 78, 26, 14, 0, 354, 368) 

v0553s.add (rslt, argl, arg2:0, 16,0,16,0, 16:31,126,37, 18,0,553,571) 
v01105.and (rslt, argl, arg2:0, 8, 0,8, 0,8: 11, 47, 14,10,0, 110, 120) 

v0572s. assign ( var, data : 0, 8, 0, 8: 6, 26, 8, 7, 0, 572, 579) 

v0580s. assign (var, data :0, 16,0, 16:6,32, 10,7,0,580,587) 

vll82s. boolwait (rslt, top, bot : 0, 8:22, 93, 26, 23, 0, 1 182, 1205) 

v0596s.cons (nan, val, :0, 8: 1,0, 0,6, 0,596, 602) 

v0677s.cons (nai,val, :0, 16:2,0,0,6,0,677,683) 

v0905s. divide (rslt, argl, arg2: 0, 8, 0, 8, 0, 8:56, 504, 129,41, 0, 905, 946) 

v0947s. divide (rslt, argl, arg2:0, 16, 0,16, 0,16:80, 1465, 376, 57, 0,947, 1004) 

v0700s.end (::3, 10,3,8, 10,700,710) 

v0228s.eq (rslt, argl, arg2:0, 8, 0,8, 0,8:16, 70, 20, 13,0,228,241) 

v0441s. eq (rslt, argl, arg2:0, 8, 0, 16, 0, 16:18, 91, 26, 13, 0, 441, 454) 

v0148s. equivalenctrslt, argl, arg2:0,8, 0, 8, 0,8: 12, 51, 15, 17,0, 148, 165) 
v0670s.exitproc (naa ::1, 10,3,6,0,670,676) 

vl049s.fixedwait (ti«e:0, 1275: 15,-5, 18,6,0,1049,1068) 

v0396s. forcons ( indx, lwr, upr, slab, elab, val : 0, 8, 0, 8, 0, 8: 17, 70, 21,6, 0, 396, 413) 

v03l5s. forend (indx, slab, elab:0, 8:7, 27, 8, 3, 0, 315, £4) 
v0286s. ge (rslt, argl, arg2:0, 8, 0, 8, 0, 8:42, 108, 31, 28, 0, 286, 314) 

v0414s. ge (rslt , argl, arg2:0, 8, 0, 16, 0, 16:46,1 18, 34, 26, 0, 414, 440) 

vOOSOs. gt (rslt, argl, arg2:0, 8, 0, 8, 0, 8: 45, 1 18, 34, 29, 0, 80, 109) 

v0482s. gt (rslt, argl, arg2: 0, 8, 0, 16, 0,16:46,1 18, 34, 26, 0, 482, 508) 

v0166s. implicate (rslt, argl, arg2:0,8, 0, 8, 0, 8: 14, 57, 17, 16, 0, 166, 182) 



vl214s.in 
vll04s. input port 
vl069s. issuevent 
v0711s. jipf 
v0325s.le 
v0455s. le 
v0693s. loc 
v0242s.lt 



(:: , , ,9,0,1214,1223) 

(irmai, tech:0, 8:0, 0, 0, 13, 12, 1 104, 1125) 

(outre :0, 8: 5, 24, 7, 8, 0, 1069,1077) 

(val, loc :0,8: 8,30,8,8,0,711,719) 

(rslt, argl, arg2:0, 8, 0,8, 0,8:42, 108, 31, 28, 0,325, 353) 
(rslt, arg 1, arg2 :0, 8, 0, 16, 0, 16 : 46, 1 18, 34, 26, 0, 455,481) 
(loc :: 1,4, 1,6, 0,693, 699) 

(rslt, argl, arg2 :0, 8, 0, 8, 0, 8:45, 1 18, 34, 29, 0, 242, 271 ) 
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v0369s. It (rslt, argl, arg2:0, a, 0, 16,0, 16:46, 131, 36, 26, 0, 369, 395) 

v0509s.aain (::7, 24, 7, 21, 23, 509, 552) 

v0720s.aonitor (::1, 4, 1,7, 0,720, 727) 

v0735s. ault (rslt , arg 1 , arg2:0, 8, 0, fl, 0, 8 : 35, 528, 1 38, 22, 0, 735, 757) 

v0758s. ault (rslt , arg 1 , arg2 :0, 16, 0, 8, 0, 8 : 34, 527, 138, 21 , 0, 758, 779) 

v0780s, ault (rslt , argl , arg2:0, 16, 0, 16, 0, 16:39, 1 105, 289, 22, 0, 780, 802) 

v0272s. ne (rslt, argl, arg2:0, 8, 0, 8, 0, 8: 16, 71, 20, 13, 0, 272, 285) 

v0833s.ne (rslt, argl, arg2:0, 8,0, 16,0, 16:18,91,26, 13,0,833,846) 

vl224s.ni (:: , , ,3,0,1224,1227) 

v0219s. not (rslt, argl :0, 8, 0, 8:7, 30, 9, 8, 0, 219, 227) 

v0069s. or (rslt, argl, arg2:0, 8, 0, 8, 0, 8: 1 1 , 47, 14, 10, 0, 69, 79) 

vl078s.outputport(outna,tech:0,8:6,29,8, 14, 13, 1078,1103) 

v0588s. proc (naa : : 1, 4, 1, 7, 0, 588, 595) 

vll26s.sensecond (innaa:0,8:56, 129,37,44,0, 1126, 1170) 

v0183s. set iae (clktia:0, 32768:37, 166, 46, 12, 13, 183, 218) 

vll7l5.stboolMait(top, aaxta::l,-5, 1, 10,6,1171, 1181) 

v0635s. sub (rslt, argl , arg2 :0, 8, 0, 8, 0, 8:23, 87, 26, 14, 0, 635, 649) 

v0650s.sub (rslt, argl, arg2:0, 16,0, 16,0, 16:31, 126,37,19,0,650,669) 

v0614s.tabaccp2 (:: , , ,0,0,614,625) 

v0728s.t abend ( :: 3,10,3,6,0,728,734) 

v0603s. tabent (fnc,task :: 10, 51, 15, 10,0,603,613) 

v0626s.var (naae: 0,8:0, 0,0, 3, 0,626, 634) 

v0684s.var (naae:0, 16:0,0,0,3,0,684,692) 

v0121s. Mit least ( indx, upr, top, bot , per, aax :0, 8, 0, 8:23, -10, 27, 26,20,121, 147) 
v0824s. abend (top, bot ::3, 10,3,4,0,824,832) 

v08l5s. ahi lecon (rslt, bot :0, 8:7, 27, 8, 8, 0, 815, 823) 
v0803s.ahilestart(top, lpct : : 1, 4, 1,6,0,803,814) 
v0068 .end index 

v0069s.or (rslt, argl, arg2:0, 8, 0, 8, 0, 8:11, 47, 14, 10, 0, 69, 79) 

v0070coa priaitive to perfora logical or 

v0071cca list=result,arguaent 1, arguaent 2 ::stor,tiffle,ext,c, i,addrs 
v0072begin stext 

rslt = argl .or. arg2 



v00731d 


a, ((argl)) 


;4a 


13t 


3b 


v00741d 


b, a 


si* 


4t 


lb 


v00751d 


a, (<arg2)) 


5* 


13t 


3b 


v0076or 


b 




4t 


lb 


v00771d 


((rslt)), a 


;4a 


13t 


3b 



v0078endtext 



v0079calc roaptr=roaptr+ll 

vOOBOs. gt (rslt, argl , arg2:0, 8, 0, 8, 0, 8: 45,118, 34, 29, 0, 80, 109) 

vOOfilcca priaitive to perfora coaparision between 2 8-bit nuabers 
v0082coa list=result, arguaent 1, arguaent 2 : :stor, tine, ext, c, i,addrs 
vOOA3begin stext 



v00641d 


a, ( (arg2) ) 


;4a 


13t 


3b 


if arg2 It argl then rslt=ffh 


v00851d 


b, a 


;1* 


4t 


lb 


b=arg2 


v00861d 


a, ((argl)) 




13t 


3b 




v00871d 


c, a 


;1« 


4t 


lb 


c=argi 


v0088and 


a 


;la 


4t 


lb 


set sign flag of argl 


v0089jp 


p, $+00dh 


;3a 


lOt 


3b 


ju»p if argl is positive 


v00901d 


a, b 


;1* 


4t 


lb 


argl = - 


v0091and 


a 


;!■ 


4t 


lb 


set sign flag of arg2 



Sc! 



v00%ld 


b, c 


il« 


4t 


lb 


arg2 .swap, argl 


v0093jp 


a, $+01 lh 


3a 


lot 


3b 


arg2 = - argl = - coap backwards 


vOQ941d 


a, 0 


2a 


7t 


2b 


arg2 = + argl = - false 


v0095jr 


$+22 


3a 


12t 


2b 




v009Sld 


a, b 


la 


4t 


lb 




v0097and a 


la 


4t 


lb 


set sign flag of arg2 


vOO901d 


», c 


la 


4t 


lb 


restore argl to accuaulator 


v0099jp 


p, $+007h 


3a 


lOt 


3b 


arg2 = + argl = ♦ 


vOlOOld 


a, 11111111b 


2a 


7t 


2b 


arg2 = - argl = + true 


vOlOljr 


$+12 


3a 


12t 


2b 




v0102cp 


b 


la 


4t 


lb 




v01031d 


a, 00000000b 


2a 


7t 


2b 


result false arg2 )= argl 


v0104jp 


z, $+7 


3a 


lOt 


3b 




v0105jp 


a, $+4 


3a 


lOt 


3b 




v0106cpl 




la 


4t 


lb 


result true arg2 It argl 


v01071d 


( (rslt)), a 


4a 


13t 


3b 





vOlOOendtext 

v0109calc roaptr=roaptr+45 

v0110s.and (rslt, argl, arg2:0, 8, 0,8, 0,8: 11, 47, 14,10,0, 110, 120) 
vOlllcoa priaitive to perfora logical and 

v0112coa list=result,arguaent 1, arguaent 2 ::stor, tine, ext, c, i,addrs 
v0113begin stext 



v01141d 


a, ((argl)) 


5* 


13t 


3b 


vOllSld 


b, a 


;!■ 


4t 


lb 


vOUGld 


a, ( (arg2> ) 


;4a 


13t 


3b 


v0117and b 


;!■ 


4t 


lb 


vonaid 


((rslt)), a 


;4a 


13t 


3b 



v0119endtext 



rslt = argl .and. arg2 



v0120calc ronptr=roaptr+ll 

v0121s. wait least (indx, upr, top, bot, per, aax:0, 8, 0, 8:23, -10, 27, 28, 20,121, 147) 
v0122coa priaitive to generate a software wait based on the results of 
v0123coa of an aritaetic expression whose integer result is passed to 
v0124coa waitleast in upr the value in upr is the nuaber of tines 
v0125coa fixedwait will be executed siailar to a for loop fixedwait 
v0128coa will be fed the tiae in the variable per top and bot 
v0127coa are labels aax is the aax tine allowed specified by the 
v0128coa designer for all possible conbi nations of upr and per 
v0129coa per and aax are in as to the nearest 5as the aax allowed value 
v0130coa for per is 1275as and the aax allowed value of upr is 127 
v0131attr tiae= (aax) *4000 
v0132begin stext 



v01331d a, 1 


;2a 7t 


2b 


counter always starts at one 


v0134(top):ld ((indx)), a 


;4a 13t 


3b 


update (indx) with latest value 


v013Sld a, ((upr)) 


;4a 13t 


3b 




v01361d b,a 


; la 4t 


lb 




v01371d a, ((indx)) 


;4a 13t 


3b 




v0138cp b 


;la 4t 


lb 


compare to upper liwit 


v0139jp z, (bot) +3 


;3a lOt 


3b 


juip out of loop on indx=upr 



v0140endtext 

v0141call 5. fixedwait ((per):) 
v0142begin stext 
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v01431d i, ( (indx) ) ;4a 13t 3b get current indx value 

v0144inc a ;li 4t lb crank indx 

v0145(bot) : jp (top) ;3a lOt 3b juapt to top of loop 

v0146endtext 

v0147calc roaptr=rowptr+23 

v0148s.equivalenc(rslt,argl,arg2:0,8,0,8,0,8:12,51, 15,17,0, 148, 185) 
v0143coa priaitive perfora to the logical equivalence relation 
v0150coa the truth table is as follows 



v0151coa 


argl 




arg2 


rslt 


v0152coa 


false (OOh) 




false 


true(ffh) 


v0153coa 


false 




true 


false 


v0154coa 


true 




false 


false 


v0155coa 


true 




true 


true 


v0156coa equivalence is siaply the opposite of 
v0157begin stext 


xor 


v01581d a, ((argil) 


;4a 


13t 


3b rslt = 


argl .equiv. arg2 


v01591d b, a 


!l» 


4t 


lb 




v01601d a, ( (arg2) ) 


;4a 


13t 


3b 




v0161xor b 


;i» 


4t 


lb 




v0162cpl 


?!■ 


4t 


lb 




v01631d ((rslt)),a 


i ;4a 


13t 


3b 





v0164endtext 

v0165calc rcaptr=ro«ptr+12 

v0166s. iaplicate (rslt,argl,arg2:0, 8, 0,8, 0,8:14,57, 17,16,0, 188, 182) 
v0167coa priaitive to perfora logical iaplication check 
v0168coa truth table is as follows 



v0169coa 


argl 


arg2 


rslt 


v0170coa 


false(OOh) 


false 


true(ffh) 


v0171coa 


false 


true 


true 


v0172coa 


true 


false 


false 


v0173coa 


true 


true 


true 



v0174begin stext 



v01751d a, ( (arg2) ) 


;4a 


13t 


3b 


rslt = argl .iaplicate. arg2 


v0176and a 


;i« 


4t 


lb 


set 2 ero flag 


v0177jp nz,$+7 


;3i 


lOt 


3b 


if arg2=true then rslt=true 


v01781d a, ((argl)) 


;4a 


13t 


3b 


if arg2=false then get argl and cpl it 


v0179cpl 


;la 


4t 


lb 


rslt= .not. argl 


vOlflOld ((rslt)), a 


;4a 


13t 


3b 





vOlfilendtext 

v0182calc roaptr=roaptr+14 

v0183s.setiae (clktiarO, 32768:37, 166, 46, 12, 13, 183, 218) 
v0184coa priaitive to set channel 1 of etc to soae initial value 
v0185coa elktia is initial tiae deciaal in Billiseconds 
v0186coa because channel 0 serves as the clock input to channel 1 
v0187coa with 1 Billisecond pulses there would be a latent delay in 
v0188cow resetting channel 1 because new values for the downeounter 
v0189coa are not transfered froa the load register to the downeounter 
v0190coa until a new clock pulse is sensed therefore this priaitive 
v0191coa also short tiaes the channel 0 clock to generate an output pulse such 
v0192coa that charnel 1 is iaaediately reset to the value passed through the 
v0193coa arguaent elktia 
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v0194if clock .ne. 0 skip 2 
v0195calc dock=l 



v0196incl h. clock 


(::) 








>ri)197begin stext 
v0l981d a, 01110001b 


2a 


7t 


2b 


counterl+load lsb then nsb+aodeO+hex 


v0199out (0f3h),a 


3a 


lit 


2b 


set aode control 


v02001d hi, (clktia) 


3a 


lOt 


3b 


get tiae period 


v02011d a, 1 


la 


4t 


lb 


lsb of clktia 


v0202out (0flh),a 


3a 


lit 


2b 


load lsb to etc channel 1 


v02031d a,h 


la 


4t 


lb 


asb of clktia 


v0204out (Of Ih) , a 


3a 


lit 


2b 


load asb to etc channel 1 


v02051d a, 001 10 100b 


2a 


7t 


2b 


count rO+ load lsb then Bsb+aode2+bcd 


v0206out (0f3h),a 


3a 


lit 


2b 


set aode control 


v02071d a,02h 


2a 


7t 


2b 


lsb of 0002 bed 


v0208ottt (OfOh) , a 


3a 


lit 


2b 


02h in load reg lsb 


v02091d a, OOh 


2a 


7t 


2b 


asb of 0002 bed 


v0210out (Of Oh), a 


3a 


lit 


2b 


OOh in load reg asb 


v02111d a, 001 10 100b 


2a 


7t 


2b 


contrO+load lsb then asb+aode2+bcd 


v02l2out (0f3h),a 


3a 


lit 


2b 


set aode control 


v02131d a,00h 


2a 


7t 


2b 


lsb of 2000 bed 


v0214out (0f0h),a 


3a 


lit 


2b 


OOh in load reg lsb 


vOSISId a,20h 


2a 


7t 


2b 


asb of 2000 bed 


v0216out (0f0h),a 


3a 


lit 


2b 


20h in load reg asb 



v0217endtext 

v0218calc roaptr=roaptr+37 

v0219s.not (rslt, argl :0, 8, 0,8:7, 30,9,8,0,219,227) 
v0220cob priaitive to perfora logical not, coapleaent 
v0221coa list s result,arguaent 1, arguaent 2 ::stor,tiae,ext,c, i,addrs 
v0222begin stext 

v02231d a, ((argl)) ;4a 13t 3b rslt = not argl 

v0224cpl ; la At lb 

v022Sld ( (rslt)), a ;4a 13t 3b 

v0226endtext 

v0227calc roaptr=roaptr+7 

v0228s.eq (rslt, argl, arg2:0, 8, 0,8, 0,8: 16, 70, 20, 13, 0,228, 241) 

v0229coa priaitive to perfora coaparision between 2 8-bit nuabers 
v0230coa list=result, arguaent 1, arguaent 2 ::stor,tiae,ext,c,i,addrs 
v0231begin stext 



v02321d 


a, ((argl)) ;4a 


13t 


3b 


if argl = arg2 then rslt=ffh 


v02331d 


b, a ;la 


4t 


lb 




v02341d 


a, ( (arg2) ) ;4a 


13t 


3b 




v0235cp 


b *,la 


4t 


lb 




v02361d 


a, 11111111b*, 2a 


7t 


2b 




v0237jr 


z, $+3 ;3a 


12t 


2b 


result equal 


v0238cpl 


;1* 


4t 


lb 


result not equal 


v02391d ((rslt)), a ;4a 


13t 


3b 





v0240endtext 

v0241calc roaptr=roaptr+16 

v0242s. It (rslt, argl, arg2: 0,8, 0, 8, 0, 8:45, 1 18, 34,29, 0,242, 271) 

v0243coa priaitive to perfora coaparision between 2 8-bit nuabers 
v0244coa list=result, arguaent 1, arguaent 2 ::stor,tiae,ext,c,i,addrs 
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v0245begin stext 



v02461d a, ((argl)) 


4a 


13t 


3b 


if argl It arg2 then rslt=ffh 


v02471d b, a 


la 


4t 


lb 


b=argl 


v02481d a, ( (arg2) ) 


4a 


13t 


3b 




v02491d c, a 


la 


4t 


lb 


c=arg2 


v0250and a 


la 


4t 


lb 


set sign flag of arg2 


v0251jp p,$+00dh 


3a 


lOt 


3b 


juap if arg2 is positive 


v0252ld a, b 


la 


4t 


lb 


arg2 = - 


v0253and a 


la 


4t 


lb 


set sign flag of argl 


v02541d b, c 


la 


4t 


lb 


argl .swap. arg2 


v0255jp a,$+011h 


3a 


lOt 


3b 


argl = - arg2 = - coap backwards 


v02561d a, 0 


2a 


7t 


2b 


argl = + arg2 = - false 


v0257jr $+016h 


3a 


12t 


2b 




v02581d a, b 


la 


4t 


lb 




v0259and a 


la 


4t 


lb 


set sign flag of argl 


v02601d a, c 


la 


4t 


lb 


restore arg2 to accumulator 


v0261jp p,$+O07h 


3a 


lOt 


3b 


argl = + arg2 = + 


v02621d a, 11111111b 


2a 


7t 


2b 


argl = - arg2 = ♦ true 


v0263jr t+OOcb 


3a 


12t 


2b 




v02£4cp b 


la 


4t 


lb 




vO£651d a, 00000000b 


2a 


7t 


2b 


result false argl )= arg2 


v0266jp z, $+7 


3a 


lOt 


3b 




v0267jp a, $+4 


3a 


lOt 


3b 




v0268cpl 


la 


4t 


lb 


result true argl It arg2 


v02691d ((rslt)), a 


4a 


13t 


3b 





v0270endtext 

v0271calc roaptr=roaptr+45 

v0272s. ne (rslt, argl, arg2:0, 8, 0, 8, 0, 8: 16, 71, 20, 13, 0, 272, 285) 

v0273cca primitive to perfort expansion between 2 8-bit numbers 
v0274coa li5t=result, argument 1, argument 2 ::stor,ti»e,ext,c, i,addrs 
v0275begin stext 



v02761d 


a, ((argl)) 


4a 


13t 


3b 


if argl = arg2 then rslt=ffh 


v02771d 


b, a 


la 


4t 


lb 




v02781d 


a, ( (arg2) ) 


4a 


13t 


3b 




v0279cp 


b 


la 


4t 


lb 




v02801d 


a, 0 


2a 


7t 


2b 




v0281jr 


z, $+003h 


3a 


13t 


2b 


result not equal 


v0282cpl 




la 


4t 


lb 


result equal 


v02831d 


((rslt)), a 


4a 


13t 


3b 





v0284endtext 

v0285calc roaptr=roaptr+16 

v0286s. ge (rslt, argl, arg2:0, 8, 0, 8, 0, 8:42, 108, 31, 28, 0, 286, 314) 

v0887co« priaitive to perform coaparision between 2 8-bit numbers 
v0288coa list=result, argument 1, argument 2 : :stor, time, ext, c,i,addrs 
v0289begin stext 



vO2901d 


a, ( (arg2> ) 


*,4a 


13t 


3b 


if arg2 le argl then rslt=ffh 


v02911d 


b, a 


;la 


4t 


lb 


b=arg2 


v02921d 


a, ((argl)) 


;4a 


13t 


3b 




v02931d 


c, a 


;la 


4t 


lb 


c=argl 


v0294and 


a 


;la 


4t 


lb 


set sign flag of argl 


v0295jp 


p, VKlOdh 


;3a 


lOt 


3b 


juap if argl is positive 
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v02961d a, b 


; la 


4t 


lb 


argl = - 


v0297and a 


!!■ 


4t 


lb 


set sign flag of arg2 


voeseid b, c 


-,1a 


4t 


lb 


arg2 .swap, argl 


v0299jp a, $+01 lh 


;3ai 


lOt 


3b 


arg2 = - argl = - coap backwards 


v03001d a, 0 


;2a 


7t 


2b 


arg2 = + argl = - false 


v0301jr $+013h 


;3a 


12t 


2b 




v03021d a, b 


*,la 


4t 


lb 




v0303and a 


;la 


4t 


lb 


set sign flag of arg2 


v03041d a, c 


;la 


4t 


lb 


restore argl to accumulator 


v0305jp p, $+007h 


;3a 


lOt 


3b 


arg2 = + argl = + 


v03061d a, Ullllllb;2a 


7t 


2b 


arg2 = - argl = + true 


vO307jr $+009h 


;3i 


12t 


2b 




v0308cp b 


;!■ 


4t 


lb 




v03091d a, llllllllb;2a 


7t 


2b 


result false arg2 )= argl 


vO310jp p, $+4 


;3a 


lOt 


3b 




v031 lcpl 


;la 


4t 


lb 


result true arg2 It argl 


v03121d ((rslt)), a 
v0313endtext 


•,4a 


13t 


3b 





v03l4calc roaptr=ro«ptr+42 

v0315s. forend (indx,slab,elab:0, 8:7, 27, 8, 3, 0,315,324) 
v03l6coa primitive to end a for loop 
v0317coa list=index, start label, end label 
v0318calc pop reps 
v0319begin stext 

v03201d a,((indx)) ;4a 13t 3b get value of index at top of loop 

v0321inc a ;la 4t lb crank index 

v0322(elab) :jp (slab) ;3a lOt 3b juap to for loop test 
v0323endtext 

v0324calc roaptr=roaptr+7 

v0325s. le (rslt, argl, arg2:0,8, 0, 8, 0, 8:48, 108,31,28, 0, 325, 353) 

v0326coa priaitive to perfora coaparision between 2 8-bit nuabers 
v0327coa list=result,arguaent 1, arguaent 2 ::stor,tiae,ext,c,i,addrs 
v0328begin stext 



v03291d 


a, ((argl)) 


4a 


I3t 


3b 


if argl le arg2 then rslt=ffh 


v03301d 


b, a 


la 


4t 


lb 


b=argl 


v03311d 


a, (<arg2)> 


4a 


13t 


3b 




v03321d 


c. » 


la 


4t 


lb 


c=arg2 


v0333and 


a 


la 


4t 


lb 


set sign flag of arg2 


v0334jp 


p,$+13 


3a 


lOt 


3b 


juap if arg2 is positive 


v03351d 


a, b 


la 


4t 


lb 


arg2 = - 


v0336and 


a 


la 


4t 


lb 


set sign flag of argl 


v03371d 


a, c 


la 


4t 


lb 


restore arg2 to accumulator 


v0338jp 


a, $417 


3a 


tot 


3b 


argl = - arg2 = - coap backwards 


v03391d 


a, 0 


2a 


7t 


2b 


argl = + arg2 = - false 


v0340jr 


$+13 


3a 


12t 


2b 




v034lld 


a, b 


la 


4t 


lb 




v0342and 


a 


la 


4t 


lb 


set sign flag of argl 


v03431d 


a, c 


la 


4t 


lb 


restore arg2 to accumulator 


v0344jp 


p, $+7 


3a 


lOt 


3b 


argl = + arg2 = + 


v03451d 


a, 11111111b 


2a 


7t 


2b 


argl = - arg2 = ♦ true 


v0346jr 


$+9 


3a 


12t 


2b 
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v0347cp 


b ;li 


4t 


lb 




v03481d 


a,llllllllb;2i 


7t 


2b 


result false argl )= arg2 


v0349jp 


Pi ** ;3« 


lOt 


3b 




v0350cpl 




4t 


lb 


result true argl It arg2 


v03511d 


((rslt)), a ,*4« 


13t 


3b 





v0352endtext 

v0353calc roaptr=roaptr+42 

v0354s. add <rslt, argl, arg2:0, 8, 0, 8, 0, 8:23,78, 26, 14, 0, 354, 368) 

v03Scoa priaitive to add argl and arg2 and store in rslt 
v©356coa list=rslt,argl,arg2:precisions:s,t,e,c, i,addr 
v0357begin stext 



v03581d a, ((argl)) 


;13t 


4a 


3b 


v03391d hi, (arg2) 


|10t 


3i 


3b 


v0360add a, (hi) 


;7t 


2i 


lb 


v0361jp po ,$+13 


;3i 


lOt 


3b 


v0362jp c ,$+8 




lOt 


3b 


v03631d a,01111111b;2i 


7t 


2b 


v0364jp $+5 


*3i 


lOt 


3b 


v036Sld a, 10000000b 




7t 


2b 


v03661d ((rslt)), a 


;13t 


4i 


3b 



v0367endtext 



store argl in accuiulator 
have hi point to arg2 byte 
add accuiulator with arg2 
if no overflow store result 
if carry the aaxiaize sinus rslt 
put in largest positive value 

put in largest negative value 
save result of add in rslt 



v0368calc roaptr=roaptr+23 

v0369s. It (rslt, argl, arg2:0, 8, 0, 16,0, 16:46, 131, 38, 26, 0, 369, 395) 

v0370coi priaitive to per font coiparision between 2 16-bit nuibers 
v0371coi list=result,arguaent 1, arguient 2 ::stor,tiie,ext,c,i,addrs 
v0372begin stext 



v03731d de, ((argl)) 


6i 20t 4b if argl It arg2 then rslt=ffh de=(argl) 


v03741d hi, ( (arg2) ) 


5w 16t 3b 


hl=(arg2) 


v0375ld a, h 


li 4t lb 




v0376and a 


la 4t lb 


set sign flag of arg2 


v0377jp p,$+13 


3a lOt 3b 


juap if arg2 is positive 


v03781d a, d 


la 4t lb 


arg2 = - 


v0379and a 


la 4t lb 


set sign flag of argl 


v0380jp 1 , 1+18 


3a lOt 3b 


argl = - arg2 = - coap backwards 


v03811d a, 0 


2a 7t 2b 


argl = + arg2 = - false 


v0382jp $+24 


3a lOt 3b 




v03831d a, d 


la 4t lb 




v0384and a 


la 4t lb 


set sign flag of argl 


v0385jp p,$+8 


3a lOt 3b 


argl = + arg2 = + 


v03861d a, 11111111b 


2a 7t 2b 


argl = - arg2 = + true 


v0387jp $+14 


3a lOt 3b 




v0388sbc hl,de 


4a 15t 2b 




*03891d a, 00000000b 


2a 7t 2b 


result false argl )= arg2 


v0390jp z, $+7 


3a lOt 3b 




v0391jp i, $+4 


3a lOt 3b 




v0392cpl 


la 4t lb 


result true argl It arg2 


v03931d ((rslt)), a 


4a 13t 3b 





v0394endtext 

v0395calc roaptr*roaptr+46 

v0396s. forcons (indx, lwr, upr, slab, elab, val :0, 8, 0, 8, 0, 8: 17, 70, 21 , 6, 0, 3%, 413) 
v0397cca primitive to set up a loop with constant bounds 
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v0398coa list 5 index, lower bound, upper bound, start label, end label 
■ax allotted value of indx, Ittr, and, upr is 127 
because the translator calls for 16 bit precision if a 
specified <val) is aax loop count 



v0399coa 
v0400coa 
v0401coa greater nuiber is 
v04C2calc push reps 
v0403ealc reps=(val> 
v0404begin stext 



v04051d a, ((lwr>) ;4a 


13t 


3b 


v0406(slab):ld ((indx)), a 


4a 


13t 


3b 


v04071d a, ((upr)) 


4a 


13t 


3b 


v04081d b,a 


la 


4t 


lb 


v04091d a, ((indx)) 


4a 


13t 


3b 


v0410cp b 


la 


4t 


lb 


v0411jp z, (elab)+3 


3a 


lOt 


3b 



loner bound of counter 
update (indx) with latest value 



coti pare to upper liait 
juitp out of loop on index=upr 



v0412endtext 

v0413calc roaptr=roaptr+17 

v0414s. ge (rslt, argl, arg2:0, 8, 0, 16, 0, 16:46, 118, 34, 26, 0, 414, 440) 

v041Scoa primitive to perfoni coaparision between 2 16-bit nuabers 
v0416coa list=result,arguaent 1, arguaent 2 ::stor,tiae,ext,c, i,addrs 
v0417begin stext 



v04181d de, ( (arg2) ) 


;6- 


20t 4b if 


arg2 leargl then rslt=ffh de=(arg2) 


v04l9ld hi, ((argl)) 


5 5a 


16t 3b 




hl=(argl) 


v04201d a, h 


5la 


4t lb 






v0421and a 


5 la 


4t 


lb 


set sign flag of argl 


v0422jp p,$+13 


}3a 


lOt 


3b 


juap if argl is positive 


v04231d a, d 


;la 


4t 


lb 


argl = - 


v04£4and a 


;la 


4t 


lb 


set sign flag of arg2 


v0423jp a, $+18 


;3a 


lOt 


3b 


arg2 = - argl = - coap backwards 


v04261d a, 0 


;2a 


7t 


2b 


arg2 = + argl = - false 


v0427jp $+24 


;3a 


lOt 3b 






v04281d a, d 


;la 


4t lb 






v0429and a 


(!■ 


4t 


lb 


set sign flag of arg2 


v0430jp p,$+8 


;3a 


lOt 


3b 


arg2 = + argl = ♦ 


v04311d a,llllllllb;2a 


7t 


2b 


arg2 = - argl = + true 


v0432jp $+14 


;3a 


lOt 3b 






v0433sbc hi, da 




ISt 2b 






v04341d a, 00000000b;2a 


7t 


2b 


result false arg2 )- argl 


v0435jp a, $+7 


?3a 


lOt 


3b 




v0436jp a, $+4 


?3a 


lOt 


3b 




v0437cpl 


ila 


4t 


lb 


result true arg2 It argl 


v04381d ((rslt)), a 


;*■ 


13t 


3b 





v0439endtext 

vOMOcalc roaptr«roaptr+46 

v0441s. eq (rslt, argl, arg2 :0, 8, 0, 16, 0, 16: 18, 91, 26, 13, 0, 441, 454) 

v0442coa priaitive to perfora coaparision between 2 16-bit nuabers 
v0443coa list=result, arguaent 1, arguaent 2 ::stor,tiae,ext,c, i,addrs 
v0444begin stext 

v04451d de, ((argl)) ;6a 20t 4b if argl » arg2 then rslt=ffh de=(argl) 
v04461d hi, (<arg2>) ;5a 16t 3b hl=(arg2) 

v0447and a ; la 4t lb clear carry flag 

v0448sbc hl,de ;4a ISt 2b 
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v04491d a,llllllllb;2a 7t 2b 

v0450jr z, $+3 ;3a 12b 2b result equal 

v0451cpl ;la 4t lb result not equal 

v04S21d <(rslt)),a ;4e 13t 3b 

v04S3endtext 

v0454calc roaptr=roaptr+18 

v0455s.le (rslt,argl,arg2:0,8, 0,16,0, 16:46, 118,34,26, 0,455, 481) 

v0456coe primitive to perfora coaparision between 2 16-bit nuabers 
v0457coa list=result,arguaent 1, arguaent 2 ::stor,tiae,ext,c, i,addrs 
v04S8bcgin stext 



v04591d de, ((argil) 


5&i 


20t 4b if 


argl learg2 then rslt=ffh de= (argil 


v04601d hi, ((arg21) 


;5i 


16t 3b 




hl=(arg21 


v04611d a, h 




4t lb 






v0462and a 


» i" 


4t 


lb 


set sign flag of arg2 


v0463jp p, 4+13 


•*3a 


lOt 


3b 


juap if arg2 is positive 


v04641d a, d 


5l« 


4t 


lb 


arg2 = - 


v0465*nd a 


;!■ 


4t 


lb 


set sign flag of argl 


v0466jp a, 4+18 


5^ 


lOt 


3b 


argl = - arg2 - - coap backwards 


v04671d a, 0 


;2a 


7t 


2b 


argl * ♦ arg2 * - false 


v0468jp 4+24 


»3n 


lOt 3b 






v04691d a, d 


;!■ 


4t lb 






v0470and a 


!»■ 


4t 


lb 


set sign flag of argl 


v0471jp p,4+8 


53a 


lOt 


3b 


argl * + arg2 = + 


v04721d a,llllllllb;2a 


7t 


2b 


argl = - arg2 = + true 


v0473jp 4+14 


53 a 


lOt 3b 






v0474sbc hl,de 


5* 


15t 2b 






v04751d a,00000000b;2a 


7t 


2b 


result false argl gt arg2 


v0476jp a, 4+7 


?3a 


lOt 


3b 




v0477jp a, 4+4 


?3a 


lOt 


3b 




v0478cpl 


;!■ 


4t 


lb 


result true argl le arg2 


v04791d ((rslt)),a 




13t 


3b 





v0480endtext 

v0481calc roeptr=roeptr+46 

v0482s.gt (rslt, argl, arg2:0, 8,0, 16,0, 16:46, 118,34, 26,0, 482,508) 

v0483coa priaitive to perfora coaparision between 2 16-bit nuabers 
v0484coa list*result, arguaent 1, arguaent 2 ::stor,tiae,ext,c, i,addrs 
v0485begin stext 



v04861d de, ( <arg21 1 




20t 4b if 


a*g2 It argl then rslt=ffh de=(arg2) 


v04871d hi, ((argil) 


?5a 


16t 3b 




hl= (argil 


v04881d a, h 


;!■ 


4t lb 






v0489and a 


;»■ 


4t 


lb 


set sign flag of argl 


v0490jp p,4+13 


53a 


lOt 


3b 


juap if argl is positive 


v04911d a, d 


5 1* 


4t 


lb 


argl = - 


v0492and a 


5l« 


4t 


lb 


set sign flag of arg2 


v0493jp a, 4+18 


?3« 


lOt 


3b 


arg2 = - argl = - coap backwards 


v04941d a, 0 


52 a 


7t 


2b 


arg2 * ♦ argl * - false 


v0495jp 4+24 


53a 


lOt 3b 






v04961d a, d 


5 


4t lb 






v0497and a 


5 la 


4t 


lb 


set sign flag of arg2 


v0498jp p,4+8 


53a 


lOt 


3b 


arg2 = + argl = + 


v04991d a,llllllllb;2a 


7t 


2b 


arg2 = - argl = + true 
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vOQOOjp $+14 ;3e lOt 3fa 

vOSOlfbc hl,de ;4m ISt 2b 



vOSOeid a,00000000b;2m 


7t 


2b 


result false arg2 gt argl 


v0003jp z, 4+7 


?3- 


lOt 


3b 




*0504 jp e, 4^4 


?3e 


lOt 


3b 




v050Qcpl 


;!■ 


4t 


lb 


result true arg2 le argl 


v05061d (<rslt)),a 


;4e 


I3t 


3b 





v0507endtext 

«0506calc roeptr*romptr*46 
v0509s.eain *7, 24, 7, 21, 23, 509, 352) 

v0510coa primitive to define controller setup and initialization 
vOSllcom list s empty : empty : storage, tin, ext, calc, incl, addr 
v0512o» the roe pointer is set to start at 16384 or 4000h since this 
v0513com is the beginning of user addressible eeeory in the pro-log 
v0514com it is called roe because ultimately the controller’s operating 
vOfilScom prograe Mould be burned into roe the rae pointer starts 
v0516coe at 32735 which is 32 bytes below the top of usable aeeory 
v0517coe on the pro-log to allow a 32 byte stack the top of user 
v0518ccm addressable eeeory on the pro-log is 32767 or 7fffh 
v0519coe all initializations Mill be done through the use of global 
v0520coe variable initlk and linked labels 

v0521coe following the initializations prograe Mill juep to the top of the 

v0522coe polling loop for the task contingency pairs. 

vOS23com to allOM the use of a debug proe developed at the naval 

v0524coe postgraduate school electrical engineering department the 

v0525coe starting location is changed to 40% to allow a the system 

v0526cow to auto boot and to allow loading of memory from another 

v0527com computer via the dual uart card, the loading pros inhibits the 

v0528com use of the reset location because of the location of the code and 

v0529coa the interrupt loactions used in a debugger for the prolog systee 

v0530calc romptr*16384 

v053lcalc raeptr*32735 

v0532incl h. processor (::) 

v0533incl h.cardcage (::) 

v0534begin stext 

v0535; 

v0536; zilog z- 80 based system 

v0537; 

v0538; tidseci 

v0539; tidsect 

v0540; tidseci 

v0541; 

v0542; 

vO543.z0O 

v0544aseg 

v0545org (raeptr) ;raa pointer is pointing to top of e e eory - stack 

v0546#stakidefs 32 ; 32b define stack area 

*0547org (romptr) jbegin code after reserved interrupt area 

v0548tcold>ld sp,tstak+32 ;3e lOt 3b initialize stack pointer 
v0549di ;le 4t lb disable maskable interrupts 

vOQSOjp tittnitlk) ;3e lOt 3b do hardware initializations 
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v0591cndtext 

<0552cilc roeptr«rceptr+7 

v<®3s.add (rslt,argl,arg2:0, 16,0, 16,0, 16:31, 126,37, 10,0,553,371) 



v055Acoe prieitive to add 


argl 


and arg2 and store in rslt 


v0555begin stext 










vOS561d hi, ((argl));5e 


16t 


3b 


load argl in hi pair 


v05571d be, ((arg2));6e 


20t 


Ab 


load arg2 in be pair 


vOS58ld a, 1 


;i- 


At 


lb 




v0559add a, c 


Ji- 


At 


lb 


add lsb 


v05601d 1, a 


ll" 


At 


lb 




v05611d a, h 


ji- 


At 


lb 




v0562adc a, b 


ii- 


At 


lb 


add esb 


v05631d h, a 


;le 


At 


lb 




v0564jp po ,t+15 


;3- 


lot 


3b 


if no overflow store result 


v0565jpc ,*9 


?3- 


lOt 


3b 


if carry the eaxieize einus rslt 


v05661d hi, 7fffh 


;3- 


lOt 


3b 


put in largest positive value 


v0567jp t+6 


?3- 


lot 


3b 




v03681d hi, BOOOh 




lOt 


3b 


put in largest negative value 


v05691d ((rslt)),hl;5e 


16t 


3b 


save result 



v0570endtext 

v0571calc roeptr=roeptr+31 

v0572s, assi gn ( var, dat a:0, 0, 0, 8:6, 26, 0, 7, 0, 572, 579) 

v0573coe primitive to assign a value of one variable to another variable 
v057Acoe 1 ist*var, dat a-var : var-prec, data-pree :stor, t iee, ext, calc, incl,addr 
v0575begin stext 

v05761d a, ( (data) ) ;Ae 13t 3b assign <data> 
v05771d ((var)), a ;Ae I3t 3b to (var) 

v057flendtext 

v0579calc rceptr =roeptr + 6 

v0580s. assign (var, data:0, 16, 0, 16:6, 32, 10, 7, 0, 500, 567) 
v0561coe primitive to assign a value of one variable to another variable 
v05B2coe 1 ist=var, data-var: var-prec, dat a-prec:stor, t iee, ext, calc, incl, addr 
v0563begin stext 

v056Ald hi, ((data)) ;5e 16t 3b assign (data) 

v05651d ((var)), hi ;5e 16t 3b to (var) 

v0586endtext 

v05B7calc rceptr =roeptr + 6 

v0566s.proc (nae :: 1, 4, 1,7, 0,588, 595) 

v0589cce prieitive to define procedure entry poinp 

v0590coe list=proc-naee :eepty:storage, tiee, ext, calc, incl,addr 

v0591begin stext 

v0592; procedure (nae) 

v05938(nae) : nop ;le At lb entry point for (nae) 
v059Aendtext 

v0395calc roeptr=roeptr+l 

v0596s.cons (nae, val, :0, 8:1, 0,0, 6, 0,596, 602) 
v0597coe prieitive to define data 

v0598coe 1 ist =data-naee, value : val ue-prec, stor, tiee, ext , c, i, addrs 
v0599begin stext 

v0600(nae): defb (val) {reserve one byte for data 

v0601endtext 
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v0602calc romptr*romptr+l 

v0G03s. tabent (fnc, task sslO, 51, 15, 10,0,603,613) 
v0604co« primitive to add one entry to monitor table 
v060Scoa list* funcnane, task nane:enpty:s,t,e,c,i, address 
v0606begin stent 



v0607call 6(fnc) 


?5e 


17t 


3b 


test for contingency (fnc) 


v06061d a, ( (fnc) ) 


5* 


13t 


3b 


get contingency result 


v0609cp 11111111b 


»!■ 


4t 


lb 


check if result true 


v06 lOcal 1 z,6(task) ;5n 


17t 


3b 


if true execute task 


v0611 




not true 


get next tabent or t abend to loop 



vOSISendtext 

v0613calc romptr * romptr+10 
v0614s.tabaccp2 (:: , , ,0,0,614,625) 

v06l5cow this is a dwnry primitive to allow compatibility with the 6060 
v0616coa library, the functions that would be performed in this primitive 
v0617com art all located in s.tabent. this has the effect of eliminating 
v0618com intermediate table and increasing execution speed, if there are 
v0619coa wide variations in contingency /task speeds more memory will be 
v0620com than in the 6060 primitive, note s,nain is also changed because 
v0621coa of the elimination of the intermediate table 
v0622com list* func-nane, task nane:enpty:s,t,e,c,i, address 
v0623begin stext 

W)624 | this space is deliberately void, this is a duay primitive. 

v0625endtext 



v0626s.var (nane:0, 8:0, 0,0, 3,0, 626,634) 

v0627com primitive to define storage for 6 bit variable integer or logical 
v0628com list*data-name,value:value-prec,stor, time, ext, c,i,addrs 
v0629calc ranptr*ranptr - 1 
v0630begin stext 

\rf)631org (ramptr) ;8 bit variable (name) in ran 
v0632(name>: defb 0 ;0m Ot lb 

v0633org (romptr) 
v0634endtext 



v0635s.sub (rslt, argl, arg2:0, 8, 0,8, 0,8:23, 87, 26, 14, 0,635, 649) 
v0636com primitive to subtract arg2 from argl and store in rslt 
v0637com list* rslt, argl, arg2:precisions:s,t,e,c, i,a 
v0638begin stext 



3b load argl in accumulator 

3b point hi to arg2 

lb argl - arg2 

if no overflow store result 
if carry the maximize minus rslt 
put in largest positive value 



v06391d a, ((argl)) ;4n 13t 

v06401d hi, (arg2) ;3m lOt 

v0641sub (hi) ;2m 7t 

v0642jp po ,*13 ;3n lOt 3b 

v0643jp c , *8 ;3n lOt 3b 

v06441d a,01111111bj2n 7t 2b 
v0643jp 4+5 ;3m lOt 3b 

v06461d a,10000000b ;2n 7t 2b 

v06471d ((rslt)), a ;13t 4m 3b 

v0646endtext 

v0649calc romptr*romptr+23 

v0690s.sub (rslt, argl, arg2:0, 16,0, 16,0, 16:31, 126, 37, 19,0,650,669) 
v065tcon primitive to subract arg2 from argl and store answer in rslt 
v0652com list«rslt,arjl,arg2:precisions:s,t,e,c,i,addr 



put in largest negative value 
save result of add in rslt 
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v0653begin stext 



v06541d hi, <<argl>) 


*> 


16t 


3b load argl in hi pair 


v06S51d be, <(arg2)) 


56* 


20t 


4b load arg2 in be pair 


v06561d a, 1 


;la 


4t 


lb 


v0657s«b c 


;la 


4t 


lb subrtract lsb 


v065Bld 1, a 


; la 


4t 


lb 


v06S91d a, h 


;la 


4t 


lb 


v0660sbc a, b 


»!■ 


4t 


lb subtract asb 


v06611d h, a 


*!■ 


4t 


lb 


v0662jp po ,*+15 


?3e 


lOt 


3b if no overflow store result 


v0663jp c ,*+9 


S* 


lOt 


3b if carry the saxiaize sinus rslt 


v06641d hi, 7fffh 


;3e 


lOt 


3b put in largest positive value 


v0665jp $+6 


53* 


lOt 


3b 


v06661d hi, 8000h 


;3a 


lOt 


3b put in largest negative value 


v06671d <(rslt)),hl 
v0668endtext 


;5« 


16t 


3b save result 


v0669calc rcaptr*roaptr+31 







v0670s.exitproc (naa ::1, 10,3,6,0,670,676) 
v0671coa priaitive to close proc 

v0672coa list=proc-naa, contnaaseapty: storage, tiae, ext, calc, incl,addr 
v0673begin stext 

v0674ret ;3a lOt lb return to aonitor,exit <naa) 

v0675endtext 

v0676calc roaptr=roaptr+l 

v0677s.cons (naa, val, *.0,16:2, 0,0, 6, 0,677,683) 
v067ficoa priaitive to define data for 16 bit integer 
v0679coa 1 ist=dat a-naae, value: val ue-prec, stor , t iae, ext , c, i , addrs 
v0660begin stext 

v0£81(naa): defa <val> ;define a two byte integer 

v0682endtext 

v0683ealc rcaptr*roaptr+2 

v0684s.var <naae:0, 16:0,0,0,3,0,684,692) 

v0685coa priaitive to define storage for 16 bit variable integer 

v0686coa list^data-naae, value: val ue-prec, stor, tiae, ext, c,i, addrs 

v0687calc raaptr=raaptr - 2 

v0668begin stext 

v06B9org (raaptr) ;16 bit variable (naae) in raa 
v0690<naae) : defa 0 ;0a Ot 2b 

v0691org (roaptr) 
v0692endtext 

v0693s. loc (loc : : 1, 4, 1, 6, 0, 693, 699) 

v0694coa priaitive to define a lable (location) 

v0695coa list 8 label -naae :eapty: storage, tiee, ext, calc, incl,addr 

v0696begin stext 

v0697(loc): nop ; define location (loc) 

v0696endtext 

v0699calc roaptr=roaptr+l 
v0700s.end (::3, 10,3,8, 10,700,710) 

v0701coa priaitive to end softaare listing and coaplete iapleaentation 
v0702coa list 3 «apty:eapty:stor, tiae, ext, calc, incl,addr 
v0703begin stext 
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v0704*idnitlk):jp Ispvsr ;3n lOt 3b initialization of hardware is complete 
v0705 ; start top of nain Monitor loop 

vO706end ;end of software listing ready for asseably 

v07D7endtext 

v0706calc rowptr*rowptr+3 

v0709ccw put in newory needed for inplawentat ion in raw and row 
v0710incl h.wewory (::> 
v0711s. jwpf (val.loc :0,8: 9,30,8,8,0,711,719) 
v0712coe priwitive to branch on false condition 

v0713cow list=value, junp-loc: value-prec, :storage,tiwe, ext, calc, incl,addr 
v0714begin stext 

v071Sld a, (<val>) ;4n 13t 3b branch to (loc) if <val> is true 
v0716cp 0 ;2w 7t 2b 

v0717jp z, doc) ;3w lOt 3b 
v0718endtext 

v0719calc rowptr*rowptr+8 

v0720s. Monitor (s:l, 4, 1,7,0,720,727) 

v0721con priwitive to define p2 Monitor as controller supervisor 
v0722cow list 3 enptyzeapty: storage, tiwe, ext, calc, int,addr 
vOT23begin stext 

v0724; =*onitor section 3 

v07259tpvsr:nop ;la 4t lb nark top of the polling loop 
v0726endtext 

v0727calc rowptr=rowptr+l 
v0728s.t abend ( :: 3,10,3,6,0,728,734) 

v0729cos subroutine to define end of Monitor table 
v0730cow list 3 ewpty:eMpty:s,t,e,c,i,addr) 
v0731begin stext 

v0732jp fspvsr ;go to the top of the polling loop of Monitor table 
v0733endtext 

v0734calc rowptr*rowptr+3 

*0735*. wult (rslt, argl , arg2:0, 8, 0, 8, 0, 8:35, S28, 138, 22, 0, 735, 757) 

v0736cow binary Multiplication priaitive 
v0737begin stext 



v073Bld a , < <argl) ) ;3a 


13t 


3b 


put argl in e 


v07391d e, a 


?!■ 


4t 


lb 




vO7401d a, (<arg2));3a 


13t 


3b 


load arg2 


v07411d hi, 0 


;3e 


lOt 


3b 


clear rslt 


v07421d d, h 


;!■ 


4t 


lb 


clear d for shifts 


v07431d b, 7 


i2- 


7t 


2b 


set counter to 7bits 


v0744rra 


;!■ 


4t 


lb 




v0745jp nc,4+4 


;3« 


lOt 


3b 




v0746add hi, de 




lit 


lb 




v0747sla e 


;2» 


8t 


2b 




v0748rl d 




8t 


2b 




v0749djnz $-9 


;3w 


13t 


2b «7 +2 m 8t on last tine 


v0750rra 




4t 


lb 




v0731jp nc, $+6 


l3e 


lOt 


3b 




v0752and a 


;!■ 


4t 


lb 




v0733sbc hi, de 


;*■ 


15t 


2b 




v07341d a, 1 


;!■ 


4t 


lb 


truncate result to 8 
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save result 



v07551d (<rslt)),a ;4a 13t 3b 

v0756endtext 

v0737calc roaptr*ro«ptr+35 
v07»s. Kit (rslt, argl, arg2 :0, IS, 0, 8, 0, 8:34, 527, 138, 21 , 0, 758, 779) 
v07S9coa Kltiply 2 8 bit nuaber and get 16 bit result 
v0760begin stext 



v07611d a ,((argl));3a 


13t 


3b 


put argl in e 


v07621d e, a 


»!■ 


4t 


lb 




v07631d a, ((arg2));3a 


13t 


3b 


load arg2 


v07641d hi, 0 


;3a 


lOt 


3b 


clear rslt 


v07651d d, h 


»!■ 


4t 


lb 


clear d for shifts 


v07661d b, 7 




7t 


2b 


set counter to 7bits 


v0767rra 




4t 


lb 




v0768jp nc,$+4 


;3» 


lOt 


3b 




v0769add hi, de 




lit 


lb 




v0770tla e 




8t 


2b 




v0771rl d 


12* 


8t 


2b 




v0772djnz $-9 




13t 


Zb *7 +2a 8t on last tiae 


v0773rra 




4t 


lb 




v0774jp nc, t+6 


;3a 


lOt 


3b 




v0773and a 


?!■ 


4t 


lb 




v0776sbc hi, de 




15t 


2b 




v07771d <(rslt)),hl;5a 


iet 


3b 


save result 



v0778andtext 

v0779calc roaptr*ro«ptr+34 

vO780s.Klt (rslt, argl,arg2:0, 16,0, 16,0, 16:39, 1105,289,22,0, 780,802) 
v0781coa Kltiply 2 16 bit nuebers and get 16 bit result 
v07B2begin stext 



v07831d de, ( (argl ) ) ;6a 


20t 


4b 


put argl in de 


v07841d be, ( (arg2) ) ;6a 


20t 


4b 


load arg2 


v07851d a, b 


;)■ 


4t 


lb 


split arg2 to ate 


v078tld hi, 0 


»3a 


lOt 


3b 


clear rslt 


v07871d b, lSd 




7t 


2b 


set counter to 7bits 


v0788rra 


• 1* 


4t 


lb 




v0789rr c 


;2» 


St 


2b 




v0790jp nc, IH 


l3e 


lOt 


3b 




v0791add hi, de 


?3a 


lit 


lb 




v0792sla e 


1* 


8t 


2b 




v0793rl d 


|2* 


6t 


2b 




v0794djw t-OObh 


*,3e 


13t 


2b *7 *2a 8t on last tiae 


vOTSSrra 


;la 


4t 


lb 




v0796rr c 


i2a 


8t 


2b 




v0797jp nc, <+6 




lOt 


3b 




v0796and a 


Hi 


4t 


lb 




v0799sbc hi, de 




15t 


2b 




vOBOOld (<rslt)),hl;5a 


16t 


3b 


save result 



vOSOlendtext 

v0602calc roaptr*roaptr+39 

v0803s. Mhilestart (top, lpct : : 1, 4, 1, 6, 0, 803, 814) 

v0604cca priaitive to establish label for top of a xhile-do loop 

v0805coa condition to be tested iaaediately follows this label 
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vODOicct reps is global variable used to account for tiling during 
v0807coa Multiple loops 

vOAOteos lpct is hi loop count supplied by designer 
vO0O9calc push reps 
vOfllOcalc reps=(lpct) 
vOflllbegin stext 

v0612<top):nop ;li 4t lb top of while-do-loop 



v0813endtext 

v0614calc roiptr=roiptr+l 

v0815s.whilecon (rslt,bot :0,8:7,27, 8,8,0,815, 823) 

v081£coa priiitive to decide whether to junp out of while-do loop based 

v0617co« on boolean value passed to rslt bot is loop botton label 

>0818begin stext 

v06191d a, ((rslt)) ;4i 13t 3b get boolean value 

v0820and a ;li 4t lb check if true(ffh) or false(OOh) 

vOffiljp z, (bot)+3 ;3i lOt 3b if false juip out of while-do loop 

v0622endtext 

v0623calc roeptr«ro«ptr+7 

v0824s.whend (top, bot: -.3, 10,3,4,0,824,632) 

v0823co« priiitive to nark end of statennts to be executed in a while- 

v0626coi do-loop global variable reps is reset to value existing 

v0627cci before for- loop started 

v0628calc pop reps 

>0829begin stext 

v0630(bot) :jp (top) ;3 b lOt 3b jiop to top of while-do loop 



v0831endtext 

v0632calc roiptr=rciptr+3 

v0833s. ne (rslt, argl, arg2:0, 8, 0, 16,0, 16: 18, 91, 26, 13, 0, 833, 846) 

v0634coi priiitive to perfon coiparision between 2 16-bit nuibers 
v083Scoi list=result,arguHnt 1, argunnt 2 ::stor,tiK,ext,c,i,addrs 
v0636begin stext 

v08371d de, ((argl)) ;6i 20t 4b if argl = arg2 then rslt=ffh de=(argl) 

v06381d hi, <<arg2)) ;5i 16t 3b hl=(arg2> 

v0839and a ;li 4t lb reset carry flag 

v0840sbc hl,de ;4i ISt 2b 

v08411d a,0 ;£■ 7t 2b 

v0642jr z, $+3 ;3i 12t 2b result equal 

v0843cpl ;li 4t lb result not equal 

v08441d ((rslt)), a ;4i 13t 3b 

v084Sendtext 

v0646calc roiptr*roiptr+18 

v0847h. processor (:: , , ,2,3,847,871) 

v0848coi priiitive to include z-80 epu board 4 rtz 



v0649calc slot = slot ♦ 1 



vOflSOincl h.tcardcage (::) 
vOSSlbegin htext 

v0852 put z-80 epu board in slot (slot) 
v0853 khx high 

>0854 set juipers in the following pattern 

v0655 juiper pattern 
v0856 w2 010 
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v0857 


m3 


001 


v085B 


m4 


010 


v0859 


m5 


1 


V0860 


m6 


001 


<0861 


m7 


01 


<0862 


m8 


no 


vO063 


m9 


mi 


V0864 


MlO 


i 


v0865 


n12 


101010 


<0866 


m13 


10 


<0667 


m14 


10 


v0868 


n15 


01 



<0069 note nuatering is froa left to right and froa top to bottom. 

v0870 address space 0000-7fff 

v0671endtext 

<O072h.cardcage (:: , , ,0,0,872,076) 

v0673coa priaitive to incite* card cage and poaer supply for controller 
vO074b*gin htext 

v0675 connect powersupply to card cage 
v0fi76endtei(t 

v0877h. memory (:: , , ,2,3,877,897) 
v0678coa priaitive to include required aeaory 
vOS79talc slot = slot + 1 
v0680incl h.tcardcage (::) 
vOfidlif roaptr .It. raaptr skip 5 
v0682tegin htext 

v0883 the prograa space and the variable space have colided 

v0884 you do not have enough aeaory to execute your program 

v0685 your aeaory is limited to 16k 
v0886endtext 
v0887begin htext 

v0888 put 16k aeaory board in slot (slot) 

v0689 set jumpers in the following pattern 

v0890 juaper pattern 

vOB91 Ml 11111111 

v0892 m2 10 

v0893 m3 0 

v0894 m4 01 

vO095 m5 1 

v0896 address range for card is 4000-7fff 

v0897endtext 

tf)898h.tcardcage , ,0,0,898,904) 

v0699coa priaitive to liait the nuaber of slots in card cage to B 
v0900if slot .le. 8 skip 4 
v0901begin htext 

v09Q2 you have exceeded the aaxiaua nuaber of allouable slots in the 

v0903 card cage, it is limited to 8. 

v0904endtext 

v0905s. divide (rslt, argl,arg2:0,8,0, 8, 0, 8:56, 504, 129, 41,0, 905, 946) 
v0906coa routine to divide argl by arg2 and store in rslt 
v0907coe taken froa zaks p 137 
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v0908beqin stext 



v09091d a, ((argl)) ;e4 


1 13 


b3 


get dividend 


vOTtOand a 


5l« 


4t 


lb 




vOSUld h,0 


;£■ 


7t 


2b 




v0912jp p, 4+7 


;3m 


lOt 


3b 




v0913cpl 


;!■ 


4t 


lb 




v0914inc a 


;!■ 


4t 


lb 




v09151d h,080h 


*2" 


7t 


2b 




v09161d e, a 


?■! 


t4 


bl 




v09l71d a, (<arg2>> ;e4 


tl3 


b3 


get divisor 


v09l8and a 


;!■ 


4t 


lb 




W)919jp p, 4+Obh 


;3i 


lOt 


3b 




v0920cpl 


;i« 


4t 


lb 




v0921inc a 


;!■ 


4t 


lb 




v09221d c, a 




4t 


lb 




v09231d a, 060h 




7t 


2b 




v0924xor h 




4t 


lb 




v09251d h, a 


ii» 


4t 


lb 




v09261d a, c 


ii- 


4t 


lb 




v09271d c, a 


;■! 


t4 


bl 




v0928xor a 


;■» 


t4 


bl 


clear accumulator 


v09291d b, 8 


;>2 


t7 


b2 


set loop counter 


v0930rl e 


;■£ 


ta 


b2 


rotate 


v0931rla 




t4 


bl 




v0932t«b c 




t4 


bl 


trial subtract 


v0933jr nc , 4+3 


5*3 


tl2 


b2 


subtract ok 


v0934add a, c 


!■! 


t4 


bl 


restore accum,set cy 


v0935djnz 4-7 


1*3 


1 13 


b2 


■2 t8 on last loop 


v09361d b, a 


;*1 


t4 


bl 


put remainder in b 


v09371d a, e 


;■! 


t4 


bl 


get quitent 


v0938rla 


;■! 


t4 


bl 


shift in last result bit 


v0939cpl 


!■! 


t4 


bl 


complement bits 


v0940bit 7, h 


12* 


8t 


2b 




v0941jp 2,4+5 


?3» 


lOt 


3b 




v0942cpl 


ita 


4t 


lb 




v0943inc a 




4t 


lb 




v09441d ((rslt)), a 


5* 


1 13 


b3 


store quotient in rslt 



v0945endtext 

v0946calc r omp tr «rcmp tr +5 6 

v0947s. divide (rslt, argl, arg2:0, 16,0, 16,0, 16:80, 1465,376,57,0,947, 1004) 
v0948com primitive to divide argl by arg2 and store in rslt 
v0949coa listers It, argl , arg2:precisions:s, t, e, c, i, addr 
vOSSObegin stext 



v09511d hi, (<argl));5m 


16t 


v0952bit 7, h 


(2* 


Bt 


v09531d b,0 




7t 


v0954jp 2, 4+12 


?3m 


lOt 


v09551d a, h 


;!■ 


4t 


v0956cpl 


!l- 


4t 


v09571d h, a 


?!■ 


4t 


v095Bld a, 1 


?!■ 


4t 



3b load argl in hi pair 

2b 

2b 

3b 

lb 

lb 

lb 

lb 
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v0999cpl 


si- 


4t 


lb 




v09S01d 1, a 


ll- 


4t 


lb 




v0961inc hi 


;le 


6t 


lb 




vO«21d b, 060h 


52- 


7t 


2b 




v09S31d de, <<arg2));6e 


20t 


4b 


load a rg2 in be pair 


vO%4bit 7, d 


?2- 


8t 


2b 




vO%51d a, 0 


?S- 


7t 


2b 




v0966jp z, $+12 


?3e 


lOt 


3b 




vO%71d a, d 


ll- 


4t 


lb 




v0968cpl 


ll- 


4t 


lb 




vO%91d d, a 


ll- 


4t 


lb 




v09701d a, e 


ll- 


4t 


lb 




v0971cpl 


li- 


4t 


lb 




•09721 d e, a 


sle 


4t 


lb 




v0973inc de 


ll- 


6t 


lb 




v09741d a, OflOh 


lS- 


7t 


2b 




v0975xor b 


ll- 


4t 


lb 




v0976e* af,af’ 


ll- 


4t 


lb 


save sign of rslt 


v09771d c, 1 


Si- 


4t 


lb 




v097Bld a,h 


ll- 


4t 


lb 




v09791d b, 16d 


;2- 


7t 


2b 




«09601d hi, 0 


13- 


lOt 


3b 




v0981rl c 


IS- 


at 


2b 


loop 


v09B2rla 


5l- 


4t 


lb 




v0963adc hi, hi 


1* 


ISt 


2b 




v0984sbc hi, de 


5* 


ist 


2b 




v0985jr nc, $+3 


;3- 


I2t 


2b 


sub was ok 


v0986add hi, de 


?3- 


lit 


lb 


restore accueulator 


v0987ccf 


|1- 


4t 


lb 


calc result bit 


v0988djnz 8-11 


13- 


13t 


2b 


2e 6t on =0 


v0989rl c 


?2* 


St 


2b 




v0990rla 


ll- 


4t 


lb 




v09911d h, a 


ll- 


4t 


lb 




v09921d 1, c 


Si- 


4t 


lb 




v0993ex af,ar 


ll- 


4t 


lb 


restore sign of rslt 


v0994jp p, $+10 


;3e 


lOt 


3b 




v09951d a, h 


ll- 


4t 


lb 




v0996cpl 


ll- 


4t 


lb 




v09971d h, a 


ll- 


4t 


lb 




v09961d a, 1 


ll- 


4t 


lb 




v0999cpl 


ll- 


4t 


lb 




vlOOOld 1, a 


ll- 


4t 


lb 




vlOOlinc hi 


u- 


at 


lb 




vlOOSld <<rslt)),hl;5e 


16t 


3b 


save result 



vl003e«dtext 

vl004calc roeptr»roBptr+80 



vlOOSh. clock , ,0,0,1005,1028) 

vl006coe primitive to create an clock in the etc chip of the z80 epu board 
vl0O7begin htext 

vlOOfl these additional connections on the epu board are required to 
vl009 utilize 2 of the 3 channels of the etc chip the etc chip 
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vlOlO 

vlOll 

v!012 

»1013 

vl014 

vl015 

¥1016 

¥1017 

¥1018 

¥1019 

¥1020 

¥1021 

¥1022 

¥1023 



operates at 2 rfiz ¥ice 4 ahz for the z-80a epu the fol lotting 
juepers Mill cause channel 0 to be served by the internal 2ehz 
clock and channel 1 to be served by the output free channel 0 
thus for exaeple if channel 0 is set up to generate a pulse 
every 2000 internal clock cycles and this pulse becoees the input 
clock signal to channel 1 then the net result is channel 1 is a 
doencounter supplied Nith a lkhz clock signal 
connect jl -20 to jl-12 this connects channel 0 output to channel 1 
input clock 

jl-15 to jl-16 gate of channel 0 tied to ground so doen 
counter Mill work 

jl-9 to jl-10 gate of channel 1 tied to ground so down 
counter Mill eork 

connect on ul2 



V1024 


1-2 


¥1025 


7-8 


vl026 




¥1027 


9-10 


vl028endtext 





internal clxk signal supplied to channel 2 
external clock signal supplied to channel 1 
(actually the output free channel 0) 
internal clock signal supplied to channel 0 



vl029h. keydisplayiti , , ,6,8,1029,1048) 

vl030coa prieitive to add the 7303 keyboard display card this prieitive 

vl031coe is called by out put port and input port the keyboard and 

vl032co« digital display features are not used only the rocker SMithces 

vl033coe are used to control input and the leds to display output 

vi034if keybrd .eq. 1 skip 14 

vl035calc keybrd - 1 

vl036calc slot = slot ♦ 1 

vl037incl h. tcardcage (::) 

vl038begin htext 

vl039 put first prolog std 7303 keyboard/display card in slot (slot) 
vl040 connect the folloeing jueper pins 

¥1041 x6 



vl042 y4 

¥1043 ZO 

vl044 zl 

vi045 disconnect the follouing jueper pins 

vl046 all others 

vl047 address space 11000000, 11000001 

vl048endtext 

vl049s. fixedeait (t ieesO, 1275: 15, -5, 18, 6, 0, 1049, 1068) 

vl050coa routine to delay a fixed period of tiee in incr c e e n t s of 5ss 

vlOSlcoe eax al lowed input value is 1275es 

vl052coa as currently coded there eay be up to a 1W error in actual 

vi093coe elapsed tiee when com pa red to the input value 

vl054attr tiee Mtiee)*4000 

vl055calc scrtch =<tiee)/5 

vl056begin stext 

vl057{ 

vl068; nait (tiee) as (for z80a 4 ahz clock) 
vi059; 

vl0601d b, (scrtch) ;2e 7t 2b set value of outer loop counter 
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vlOSlld de,-l 


;3« 


lOt 


3b 


value by which inner loop is decreantd 


vl0621d hi, 800 


& 


lOt 


3b 


starting couter value for inner loop 


vl063add hl,de 




lit 


lb 


decreacnt inner loop 


vl064nop 


;i* 


4t 


lb 


duaay inst. to aake inner loop =25t 


vl065jp c,f-2 


;3» 


lOt 


3b 


juap to of inner loop until hl»0 


vl066djnz $-8 


}3a2 I3tfl 


2b 


decresent outer loop counter until b*0 



vl067endtext 

vl068calc roaptr=rcaptr + 15 

vl069s. issuevent (outnarO, 8:5, 24, 7, 8,0, 1069, 1077) 

vl070coa outputs contents of outra to data port of prolog 7303 keyboard 

vl071cca card data port is dOh value of data sent can be seen by 

vl072coa exaainiag 8 leds on 7303 card, one led for each of 8 bits 

vl073begin stext 

vl0741d a, ((outra)) 5 4a 13t 3b get contents of output variable 
vl075out (0d0h),a ;3a lit 2b output to data port of 7303 card 

vl076endtext 

vl077calc roaptr=roaptr + 5 

vl07Bs. out putport (outra, tech :0, 8:6, 29, 8, 14, 13, 1078, 1 103) 

vl079coa tech is a hold-over free the original csde design 

vl060coa it is not used here because the output type of signal 

vlOSlcoa is predetermined by the hardware available, prolog boards 

vl062coa keytxrd is a boolean flag indicating if the prolog 7303 board has 

vl063coe been included already this priaitive sets up the 7303 card 

vl084cca so that contents of outra will be output to the single data 

vKNScoa port, dOh to do this the variable aust first be created then a 

vl086coa control code sent to port dlh to write inhibit the digit displays 

vl087coa any data value that is output will be seen only on the 8 leds 

vlOBBcoa on»l and off*0 for each of 8 bits of the output data value 

vlQB9cca the leds are cleared first in preparation for display of new data 

vl090if keytxrd .ns. 0 skip 2 

vl091incl h.keydisplay(::) 

vl092calc keybrd * keybrd ♦ 1 

vl093calc raaptr = raaptr - 1 

vl094begin stext 

vl095;sets up 7303 card so that the contents of (outra) will be output 
vl096org (raaptr) 
vl097(outna>: defb 0 
vl096org (roaptr) 



vl0991d a, 0 


; 2» 


7t 


2b 


write inhibit the alphanuaeric display 


vllOOout (0dlh),a 


1 3a 


lit 


2b 


send it to control port 


vl 101 out (0d0h),a 


? 3a 


lit 


2b 


clear all leds 



vllOSendtext 

vll03ealc roaptr = roaptr ♦ 6 

vl 104s. input port (innaa,tech:0,8:0,0,0,13,l2,ll04,1125) 

vllOScoa tech is a hold-over froa the original csde design it is not used 

vllOGcoa here because the input type of signal is predetermined by the 

vll07coa 7303 keyboard/display board ie, a single B-bit data port since 

vllOOcoa no control code is required, only the input storage location is 

vll09coa created by this priaitive when aore coaplex i/o hardware is 

vlllOcoa available this priaitive will require aodification 

vllllcoa innaa is where the value available at the single data port, dOh, 
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vlll2coa Mill be latched 

vlll3coa keybrd it a boolean flag indicating if the prolog 7303 card has 

vlll4coa already been included 

vlltSif keybrd .ne. 0 skip 2 

vll lSincl h.keydisplay(::) 

vlUTcalc keybrd = keybrd +1 

vlllOcalc raeptr = raaptr -1 

vlllSbegin stext 

vll20; sets up 7303 card so that value at data port can be 

vll21| read into (innaa) by the primitive s.sensecond 

vll22org (raeptr) 

vll23(innaB>: defb 0 

vll24org (roeptr) 

vll25endtext 

vll26s.sensecond (imaa:0, 8:56, 129, 37, 44, 0,1126, 1170) 
vll27coa purpose is to deeonstrate ability to input data 
vll2flco« innaa is the variable that would noraally be the depository 
vll29coa of the value present at the single data port , dOh, on the 
vll30coa 7303 keyboard card for demonstration purposes only the 2 
vll31coa rocker switches on the 7303 card are used to control input 
vll32coa and since they only control bits 6 and 7 of the 6 bit (0-7) 
vll33coa data port, a saall conversion routine has been added such that 
vll34coa 1 of 4 values will be placed in innaa depending on the 
vll35coa positions of the 2 rocker switches the following table 



vll36coa applies 


s2(left) 


si (right) 


value put 


vll37coa 


on(up) 


on 


04h 


vll38coa 


on 


off (down) 


03h 


vll39coa 


off 


on 


02h 


vll40coa 


off 


off 


Olh 



vll41coa this allows an input choice of 4 diffemt values via the 
vll42coa pro-log rocker switches on the 7303 keyboard display card 
vll43begin stext 



vll44in a, (OdOh) 


( 3a 


lit 


2b 


data port read for input 


vll4Sld b,a 


; !■ 


4t 


lb 


save value in b for later 


vll46end 11400000b 


i 2a 


7t 


2b 


■ask for both switches on 


vll47cp 11000000b 


t 2a 


7t 


2b 


check for both switches on 


vil48jp z, ft27 


; 3a 


lOt 


3b 


if both cm then juap down 


vll491d a,b 


1 


4t 


lb 


get original value again 


vll50and 10000000b 


5 Zb 


7t 


2b 


■ask for left switch on only 


vllSlcp 10000000b 


; 2a 


7t 


2b 


check for left switch on only 


vllS2jp z,**27 


j 3a 


lOt 


3b 


if left on then juap down 


vll531d a,b 


1 !■ 


4t 


lb 


get original value again 


vllS4end 01000000b 


1 Zb 


7t 


2b 


■ask for right switch on only 


vllSBcp 01000000b 


i 2a 


7t 


2b 


check for rt switch on only 


vll56jp z,t*Z7 


t 3a 


lOt 


3b 


if rt on then juap down 


vll571d a,l 


t da 


7t 


2b 


both switches aust be off 


vllSBld ((innaa)), a 


; 


13t 


3b 


both off, (innaa) * Olh 


vll39jp b*24 


; 3a 


lOt 


3b 


juap to end of routine 


vllMld a, 4 


1 2a 


7t 


2b 


both switches aust be on 


vll611d ((innaa)), a 


t * 


13t 


3b 


both on, (innaa) * 04h 


vl!62jp >+16 


1 3a 


lOt 


3b 


juap to end of routine 
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vll631d *,3 


1 


2a 


7t 


2b 


left switch on only 


vll641d ((innao)),* 


1 


4a 


13t 


3b 


left on, (innaa) * 03h 


vll65jp »+* 


• 

1 


3a 


lOt 


3b 


juap to end of routine 


vll661d a, 2 


1 


2a 


7t 


2b 


right switch on only 


vll671d (<iima)),a 


1 


4a 


13t 


3b 


right on, (innaa) » 02h 


vll68nop 


1 


la 


4t 


lb 


end of input conversion routine 



vll61endt*it 

vll70calc r<»ptr«rowptr ♦ 56 

vll71s. ft boolMit (top, oaxta: : 1, -3, 1, 10, 6, 1 171, 1 161 > 

vll7Scoa primitive to aark top of boolean wait structure 

vll73coa top is label for beginning of boolean wait 

vll74cow aorta is aax tine in Billiseconds allowed to check conditions 

vll75coa betwee n s. ft bool wait and s.boolaait 

vil76attr tiae« (oaxta) *4000 

vll77call s.setiae ((aaxta):) 

vll78begin stext 

vll79<top):nop ; la 4t lb aark top of boolean wait loop 

vllSOendtext 

vllfllcalc roaptr=roaptr+l 

vl 162s. boolwait (rslt , top, bot :0, 8:22, 93, 26, 23, 0, 1 162, 1205) 
vll83coa priaitive to check for boolean conditiontif true then exit) and 
vll84coa read current tiae froe charnel 1 of etc since clock 
vtlBScon continues to downcount past OOOOh tiae interval expiration 
vllS&cca is detereined by checking the sign bit of the asb of the 2 byte 
vll87coa clock tiae if it is 1 then tiae has expired and the boolean 
vllBScca structure is exited rslt is boolean value passed frow 

v1189cob condition being checked top and bot are labels 
vll90begin stext 



vl 191 Id a, ((rslt)) 


4a 


13t 


3b 


get boolean value 


vll92and a 


la 


4t 


lb 


check if true(ffh) or false (OOh) 


vll93jp nz, (bot) +3 


3a 


lOt 


3b 


if true juap out 


vl 1341d a, 01000001b 


2b 


7t 


2b 


channel 1+latched read+nodeO+hex 


vl 195out (0f3h),a 


Si 


lit 


2b 


send to control code port 


vll96in a, (Oflh) 


3a 


lit 


2b 


read lsb 


vll971d 1, a 


In 


4t 


lb 


save lsb 


vl!98in a, (Oflh) 


3a 


lit 


2b 


read nsb 


vll991d h, a 


la 


4t 


lb 


save asb 


vl200bit 7, h 
vl201 


2b 


at 


2b 


check if counter value has passed 
zero ie, becoae negative 


vl202(bot) :jp z, (top) 
V1203 


3b 


lOt 


3b 


if counter value still positive 
ie, bit 7 = 0 then go to top 



vl204endtext 

vl205calc roaptr=roaptr+22 

vl206s. call (naa ::3, 17,5,7,0, 1206, 1213) 

vl207com priaitive to call another procedure 

vl208corc list=proc-naae:eapty:storage, tiae, ext, calc, incl,addr 

vl209begin stext 

vl210; call procedure (naa) 

vl2ilcall ?<naa) ; 5a 17t 3b 

vl212er,dtext 

vl213calc romptr=roaptr+3 
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vl214s. in (:: , , ,9,0,1214,1223) 

vl215con priiitive to set the tieed block flag 

vl216cce it is lodeled exactly after Itcol ross’s s.in in the 8080 

vl217coe realization voluen and is included for coepleteness 

vl218coe it does not confora to carson’s translator output format 

vl219cce and is not usable in its present fora 

vl220coe the global variable teblck is supposed to be a flag to indicate 
vl221coe to the csde prograe that the following primitives constitute 
vl222coe a tieed block within a task 
vl223calc tiblck=l 

v 1224s. ni , ,3,0,1224,1227) 

vl225coe priiitive to clear the tiwd block flag 
vl226coi saie cow on ts as in s. in apply 
vl227calc t»blck=0 

vl228h.uart , ,0,0,1228,1242) 

vl229begin htext 

vl230 this is a duwy priiitive to rewind you to put in the dual uart card 
vl231 if you wish to use the nps loading roe. the require setting are as 
vl232 follows. 

vl233 set jumpers in the following pattern 

vl234 jumper pattern 

vl235 wl 01 

vl236 w2 01 

vl237 w3 10 

vl238 sx 0001 

vl239 sy 00001000 

vl240 address space eO thru e7 

vl241endtext 

v!242coe this has to be the last line 



105 



APPENDIX F 



WORKING C3DL TEST PROGRAM 



This appendix contains a problea to test the priaitivea 
that generate a while-do loop. This problea waa coapletely 
run through CSDE, from CSDL problea stateaent to operating 
prograa on the Pro- log aicrocoaputer . The filea liated 
below are unedited except for the priaitive liat, where the 
value of max loop count waa aoved froa 's.whilecon' to 
' a. whileatart ' . They are, in order, the CSDL problea, 
priaitive liat, application tiaing file, ayabol table, CSDE 
software output, CSDE hardware output, and CSDE debug file. 



CSDL Problea 



IDENTIFICATION 

DESIGNER : "BOB VOGEL" 

DATE I "02-07-85" 

PROJECT : "WHILE DO CONTRUCT TEST" 



DESIGN CRITERIA 

METRIC FIRST; 
VOLUMES I; 
MONITORS Is 



ENVIRONMENT 

INPUT: ARG1 ,8,TTL; END INPUT; 

OUTPUT: LIGHT,8,TTL; END OUTPUT; 

ARITHMETIC: EACH1,8; EACH5,8; 

END ARITHMETIC; 

PROCEDURES 



FUNCTION EACHl: 

BINARY, 1; 

EACHl : =0; 

SENSE ( ARG1 > ; 

IF ARG1<=2 THEN EACHl:— 1; END IF; 
END EACHl; 
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FUNCTION EACH5: 

BINARY, 1 ; 

EACH5: =0; 

SENSE ( ARG1 ) ; 

IF ARG1<=4 THEN EACH5:»-1; END IF; 
END EACHS; 

TASK ONLITA; 

LIGHT: *1; 

WHILE LIGHT <= 7 I 4 DO 
ISSUE (LIGHT); 

LIGHT:*LIGHT ♦ 2; 

WAIT 250MS; 

END WHILE; 

END ONLITA; 



TASK OFFLT; 

LIGHT: s O; ISSUE (LIGHT); 
WAIT 500NS; 

END OFFLT; 



CONTINGENCY LIST 

WHEN EACH1 : 1600MS DO ONLITA; 
WHEN EACHS : 1600HS DO OFFLT; 

END 



Primitive list 



P It. generated 
P 2s. MAIN 
P 3d: FIRST 
P 4s . inputport 
P 5e. output port 

P 6s . var 
P 7s. var 
P 8t . generated 

P 9s . proc 

P 10s. assign 
P 11s. sensecond 
P 12s. le 
P 13s.j*pf 
P 14s. sub 
P 15s. assign 
P 16s. loc 
P 17s.exltproc 
P 18t .generated 



: l: l; 

(ARG1,ttl:8> 
:(LIGHT,TTL:8) 

(EACH1 :8,0) 

(EACHS: 8,0) 
for: EACH1 
(EACHl: ) 

( EACH 1 , 0CO1 : 1 , 8 ) 

(ARG1 :8) 

( 0TO1 , ARG1 , 9C02 : 8 , 8 , 8 ) 
(0TO1,0O1*.8) 

(0TO1 ,0CO1 ,0C03 :8,8,8) 
(EACHl ,0TO1 : 1 ,8) 

(0Oi: ) 

(EACHl: ) 
for: EACHS 
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p 

p 

p 

p 

p 

p 

p 

p 

p 

p 

p 

p 

p 

p 

p 

p 

p 

p 

p 

p 

p 

p 

p 

p 

p 

p 

p 

p 

p 

p 

p 

p 

p 

p 



19s. proc 
20s. assign 
21s . ssnsscond 
22s. Is 
23s. jspf 
24s .sub 
25s. assign 
26s. loc 
27s.exitproc 
28 t . gener atsd 
29s. proc 
30s. assign 
31s. whilestart 
32s. Is 

33s. whilecon 
34s . issuevent 
35s. add 
36s .assign 
37s. f ixedwait 
38a.whend 
39s.sxitproc 
40t . generated 
41s. proc 
42s. assign 
43s. issuevent 
44s.£ixedwait 
45s.exitproc 
46t . generated 
47s. cons 
48s. cons 
49s. cons 
50s . cons 
51s. cons 
52s. var 



<EACH5: ) 

< EACH5 , 9C01 : 1 . 8 ) 

( ARG1 :8) 

(0TO1 , ARG1 ,0CO4 :8. 8, 8) 

(0toi,©O2:8) 

(SToi.ocoi ,«co3:e,a,8) 
(EACH5.0TO1 : 1 .8) 

<002: > 

(EACH5: ) 
for: ONLITA 

<onlita:> 

(LIGHT.0CO3:8,8) 

(003.4:) 

(0TO1. LIGHT. 0005:8.8.8) 
<0TO1. 004:8) 

(LIGHT:8) 

(0T01 . LIGHT.0CO2 :8. 8.8) 
< LIGHT. 0TO1 :8.8) 

<250) 

<003.004:) 

(ONLITA:) 
for: OFFLT 

<offlt: > 

(LIGHT .0CO1 :8.8) 

<light:8) 

(500) 

(OFFLT :) 

for : SYSTEM 

(0CO1,O:8) 

( 0002 . 2 : 8 ) 

(0CO3,l:8) 

(0CO4 .4 : 8) 

(0005,7:8) 

(#T01:8) 



A 1 : EACH1 

A 2 :EACH5 



Appllcatilon tlslng file 



:0NLITA 
: OFFLT 



: ms: 1600. 

:MS:l60O, 



o. o. o. o 

0. 0. o. o 






S. I NPUTPORT ( ARG1 . TTL : 8 ) 

S . OUTPUTPORT (LIGHT , TTL : 8 ) 
S. VARIABLE (EACHl:8.0) 

S. VARIABLE (EACH5:8,0) 
S.LOC <©oi:> 

S.LOC (002:) 
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s.cons <ecoi:o,e> 

S.CONS ( (9C02 : 2 , 8 ) 

s.cons <eco3:i,8> 

S.CONS <®C04:4,8> 

S.CONS <©C05:7,8) 






J 

zilog z-80 based systea ; 

• 

1 

I 

I 



. z80 { 
aseg t 
org 32735 ;raa pointer is pointing to top of aeaory - stack { 
8stak:defs 32 ; 32b define stack area ; 
org 16384 {begin code after reserved interrupt area | 
teoldsld sp,Pstak+32 ;3a lOt 3b initialize stack point; 
di ;le 4t lb disable easkable interrupts; 
jp §i0 ;3e lOt 3b do hardware initializations ; 
; sets up 7303 card so that value at data port can be ; 
; read into argl by the primitive s.sensecond ; 
org 32734 5 
argl: defb 0 ; 
org 16391 ; 
;sets up 7303 card so that the contents of light will be output ; 
org 32733 ; 
light: defb 0 ; 
org 16391 ; 



Id a, 0 


? * 


7t 


2b 


erite inhibit the alfftanuaeric 


out (Odlh),a 


? 3a 


lit 


2b 


send it to control port 


out (0d0h),a 


i 3i 


lit 


2b 


clear all leds 



org 32732 ;8 bit variable eachl in raa ; 
eachl: defb 0 ;0e Ot lb ; 
org 16397 ; 
org 32731 ;8 bit variable each5 in raa ; 
eachS: defb 0 ;0e Ot lb ; 
org 16397 ; 
{procedure eachl ; 
teachl: nop ;le 4t lb entry point for eachl ; 
Id a,(8c01) ;4e I3t 3b assign 8c01 ; 



Id (eachl), a 


;4e 13t 


3b 




to eachl 


in a, (OdOh) 


i 3a 


lit 


2b 


data port read for input 


Id b,a 


; i" 


4t 


lb 


save value in b for later 


and 11000000b 


; 2a 


7t 


2b 


Bask for both switches on 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 
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cp 11000000b 




2a 


7t 


2b 


check for both switches on ; 


jp z, *+27 




3a 


lOt 


3b 


if both on then juap down j 


Id a,b 




la 


4t 


lb 


get original value again ; 


and 10000000b 




2a 


7t 


2b 


aask for left switch on only ; 


cp 10000000b 




2a 


7t 


2b 


check for left switch on only 5 


jp 2, *+27 




3a 


lOt 


3b 


if left cm then juap down ; 


Id a,b 




la 


4t 


lb 


get original value again ; 


and 01000000b 




2a 


7t 


2b 


aask for right switch on only ; 


cp 01000000b 




2a 


7t 


2b 


check for rt switch on only ; 


JP *,*+27 




3a 


lOt 


3b 


if rt on then juap down ; 


Id a, 1 




2a 


7t 


2b 


both switches aust be off ; 


Id (argl), a 


5 ' 


)a 13t 


3b 


both off, argl = Olh j 


jp t+24 




3a 


lOt 


3b 


juap to end of routine ,* 


Id a,4 




2a 


7t 


2b 


both switches aust be on ( 


Id (argl), a 


i - 


ta 13t 


3b 


both on, argl * 04h 5 


jp *+16 




3a 


lOt 


3b 


juap to end of routine ; 


Id a, 3 




2a 


7t 


2b 


left switch on only ; 


Id (argl), a 


; ' 


)W 13t 


3b 


left on, argl = 03h ; 


jp t+8 




3« 


lOt 


3b 


juap to end of routine ; 


Id a, 2 




2a 


7t 


2b 


right switch on only ; 


Id (argl), a 


{ - 


ta 13t 


3b 


right on, argl = 02h 5 


nop 




! !■ 


4t 


lb 


end of input conversion routine ; 


Id a, (argl) *,4i 


i 


13t 


3b 


if argl le arg2 then rslt=ffh ; 


Id b, a | 


)!■ 


4t 


lb 




b=argl } 


Id a,<ec02> ;4« 


i 


13t 


3b 




1 


Id c, a 


la 


4t 


lb 




c=arg2 j 


and a 


la 


4t 


lb 




set sign flag of arg2 ; 


jp p,*+13 


3a 


lOt 


3b 




juap if arg2 is positive ; 


Id a, b 


la 


4t 


lb 




arg2 * - 


and a 


la 


4t 


lb 




set sign flag of argl 


Id a, c 


la 


4t 


lb 




restore arg2 to accuaulator 


jp ■, *+17 


3a 


lOt 


3b 




argl 1 - arg2 = - coap backwards 5 


Id a, 0 


2a 


7t 


2b 




argl = ♦ arg2 » - false ; 


jr *+13 


3a 


12t 


2b 




1 


Id a, b 


la 


4t 


lb 






and a 


la 


4t 


lb 




set sign flag of argl 


Id a, c 


la 


4t 


lb 




restore arg2 to accuaulator 


jp p, *+7 


3a 


lOt 


3b 




argl * + arg2 = + 5 


Id a, 11111111b 


2 a 


7t 


2b 




argl = - arg2 = + true 


jr *+9 


3a 


12t 


2b 






cp b 


la 


4t 


lb 






Id a, 11111111b 


2 a 


7t 


2b 




result false argl )s arg2 


JP Pi *H 


3a 


lOt 


3b 






cpl 


la 


4t 


lb 




result true argl It arg2 



Id (M01), a *,4a 13t 3b ; 

Id a, (8t01) ;4a 13t 3b branch to W1 if 8t01 is true } 

cp 0 ;2a 7t 2b 5 

jp Z| W1 ;3a lOt 3b ; 

Id a, (8c01) ;4a 13t 3b load argl in accuaulator ; 

Id hl,0cO3 ;3u lOt 3b point hi to arg2 ; 91 

sub (hi) ;2a 7t lb argl - arg2 ; 92 
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JP P° ,*+13 


;3i 


lOt 3t 


if no overflow store result ; 


I 93 


JP c ,4+8 


*,3« 


lOt 3b 


if carry the aaxiaize aims rslt ; 


i 94 


Id a,01111lllb;2a 


7t 2b 


put in largest positive value 


95 


JP *5 




lOt 3b 




% 


Id a, 10000000b 




7t 2b 


put in largest negative value 


97 


Id (6t01),a ; 


I3t 


4a 3b 


save result of add in rslt 


96 


Id a, (6t01) ; 


4a 


I3t 


3b 


assign 6t01 


99 


Id (eachl),a 


;4« 


13t 


3b 


to eachl 


100 


Ml: nop 




• 


define location Ml 


101 


ret 


;3« 


lOt 


lb 


return to aonitor,exit eachl 


102 


5 procedure eactiS 








103 


8each5: nop 


(i* 


4t 


lb entry point for each5 


104 


Id a, (M01) ; 


4a 


13t 


3b 


assign 6c01 


105 


Id (eachS),a 




13t 


3b 


to eachS 


106 


in a, (OdOh) 




3a 


lit 


2b data port read for input 


107 


Id b,a 




la 


4t 


lb save value in b for later 


106 


and 1 1000000b 




2a 


7t 


2b aa$k for both switches on 


109 


cp 11000000b 




2a 


7t 


2b check for both switches on 


110 


JP z,<+27 




3a 


lOt 


3b if both on then juap down 


111 


id a, b 




la 


4t 


lb get original value again 


112 


and 10000000b 




2a 


7t 


2b Bask for left switch on only ; 113 


cp 10000000b 




2a 


7t 


2b check for left switch on only ; 114 


JP 




3a 


lOt 


3b if left on then juap down 


115 


Id a,b 




la 


4t 


lb get original value again 


116 


and 01000000b 




2a 


7t 


2b Bask for right switch on only 


117 


cp 01000000b 




2a 


7t 


2b check for rt switch on only 


118 


jp z,4+27 




3a 


lOt 


3b if rt on then juap down 


119 


Id a,l 




2a 


7t 


2b both switches eust be off 


120 


Id (argil, a 


; * 


la 13t 


3b 


both off, argl = Olh 


121 


JP*2* 


i 

1 


1 3a 


lOt 


3b juap to end of routine 


122 


Id a, 4 


l 

1 


I 2a 


7t 


2b both switches aust be on 


123 


Id (argil, a 


; - 


la 13t 


3b 


both on, argl 3 04h 


124 


jp <+16 


1 

1 


! 3a 


lOt 


3b juap to end of routine 


125 


Id a,3 




i 2* 


7t 


2b left switch on only 


126 


Id (argil, a 


; ' 


la 13t 


3b 


left on, argl = 03h 


127 


JP w 


1 


! 3a 


lOt 


3b juap to end of routine 


126 


Id a, 2 


i 

i 


I 2* 


7t 


2b right switch on only 


129 


Id (argil, a 


; - 


la 13t 


3b 


right on, argl * 02h 


130 


nop 


! 


i 1* 


4t 


lb end of input conversion routine 


131 


id a, (argil ; 


4a 


13t 


3b 


if argl le arg2 then rslt=ffh 


132 


Id b, a 


?!■ 


4t 


lb 


b*argl 


133 


Id a, (8c04) ; 


4a 


13t 


3b 




134 


Id c, a 


;!■ 


4t 


lb 


c*arg2 


135 


and a 


;i* 


4t 


lb 


set sign flag of arg2 


136 


jp p,4+13 


;3« 


lOt 


3b 


juap if arg2 is positive 


137 


Id a, b 


!l« 


4t 


lb 


arg2 = - 


138 


and a 


;i* 


4t 


lb 


set sign flag of argl 


139 


Id a, c 


ji* 


4t 


lb 


restore arg2 to accuaulator 


140 


JP *> *17 


;3a 


lOt 


3b 


argl - - arg2 3 - coap backwards 


141 


Id a, 0 


5* 


7t 


2b 


argl 3 ♦ arg2 3 - false 


142 


jr 4*13 


?3a 


12t 


2b 




143 



Ill 



Id a, b ;la 


4t 


lb 




5 144 


and a ;la 


4t 


lb 


set sign flag of argl 


; 145 


Id a, c ; la 


4t 


lb 


restore arg2 to accumulator 


1 146 


jp p, 1+7 ;3a 


lOt 


3b 


argl = + arg2 = ♦ 


5 147 


Id a, 1111111 lb;2n 


7t 


2b 


argl 3 - arg2 * ♦ true 


i 146 


jr $+9 ;3a 


12t 


2b 




1 149 


cp b ;!■ 


4t 


lb 




; 150 


Id a,llllllllb;2m 


7t 


2b 


result false argl >* arg2 


{ 151 


jp p, $+4 ;3a 


lOt 


3b 




; 152 


cpl ;la 


4t 


lb 


result true argl It arf2 


; 153 


Id (8t01),a ;4a 


13t 


3b 




1 154 


Id a, (6t01) ;4m 13t 3b branch to 802 if OtOl is true 


; 155 


cp 0 ;2a 7t 2b 






; 156 


jp z, M2 ;3a lOt 3b 






| 157 


Id a, (8c01) ;4m 


13t 


3b 


load argl in accumulator 


1 156 


Id hl,8c03 ;3m 


lOt 


3b 


point hi to arg2 


; 159 


sub (hi) ;2m 


7t 


lb 


argl - arg2 


1 160 


jp po ,<+13 ;3a 


lOt 3b if no overflow store result 


; 161 


jp c ,$+8 ;3a 


lOt 3b if carry the aaxiaize ainus rslt 


5 162 


Id a,01111111b;2a 


7t 2b put in largest positive value 


1 163 


jp 1+5 ;3m 


lOt 3b 




| 164 


Id a, 10000000b ;2m 


7t 2b put in largest negative value 


; 165 


Id (8t01),a ;13t 


4a 3b 


save result of add in rslt 


; 166 


Id a, (8t01) ;4a 


13t 


3b 


assign 8t01 


1 167 


Id <each5),a ;4a 


13t 


3b 


to each5 


; 166 


802: nop 




; define location 802 


; 169 


ret ;3a 


lOt 


lb 


return to monitor, exit eachS 


\ 170 


; procedure onlita 








; i7i 


8onlita: nop ;la 


4t 


lb entry point for onlita 


1 172 


Id a, <8c03) ;4a 


13t 


3b 


assign 8c03 


? 173 


Id (light), a ;4a 


13t 


3b 


to light 


; 174 


803:nop ;la 


4t lb top of ahile-do-loop 


; 175 


Id a, (light) ;4a 


13t 


3b 


if argl le arg2 then rslWfh 


? 176 


Id b, a ; la 


4t 


lb 


b=argl 


j 177 


Id a, (8c05) ;4a 


13t 


3b 




; 178 


Id c, a (la 


4t 


lb 


c*arg2 


1 179 


and a ;la 


4t 


lb 


set sign flag of arg2 


; 180 


jp p,$+13 ;3a 


lOt 


3b 


jump if arg2 is positive 


( 181 


Id a, b ; la 


4t 


lb 


arg2 = - 


5 182 


and a ;la 


4t 


lb 


set sign flag of argl 


; 163 


Id a, c ;la 


4t 


lb 


restore arg2 to accumulator 


; 184 


jp a, $+17 ;3a 


lOt 


3b 


argl = - arg2 = - comp backmards 


; 165 


Id a, 0 ;2a 


7t 


2b 


argl = ♦ arg2 * - false 


; 186 


jr $+13 ;3a 


12t 


2b 




1 187 


Id a, b ;la 


4t 


lb 




; 186 


and a ;la 


4t 


lb 


set sipt flag of argl 


; 189 


Id a, c ;la 


4t 


lb 


restore arg2 to accumulator 


; 190 


jp p, $+7 ;3a 


lOt 


3b 


argl = + arg2 3 ♦ 


1 191 


Id a, llllllllb;2r 


7t 


2b 


argl 3 - arg2 3 ♦ true 


,* 192 


jr $+9 jwJ 


12t 


2b 




; 193 


cp b ;la 


4t 


lb 




} 194 
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Id a,lliillllb{2a 


7t 


2b result false argl )= arg2 


i 


JP P, H4 


»3R 


lOt 


3b ; 


: 1% 


cpl 




4t 


lb result true argl It arg2 ; 197 


Id (ROD, a ;4a 


13t 


3b 


196 


Id a, (0t01) 


5* 


13t 


3b get boolean value 


199 


and a 


;i« 


4t 


lb check if true(ffh) or false (OOh) 


200 


jp 2,004*3 


;3a 


lOt 


3b if false juap out of Nhile-do loop 


201 


Id a, (light) 


;4« 


13t 3b 


get contents of output variable 


202 


out (0d0h),a 


• 

f 


3a lit 


2b output to data port of 7303 card 


203 


Id a, (light) 


;13t 


4a 3b 


store argl in accuaulator ; 204 


Id hi, to02 


•, lOt 


3a 3b 


have hi point to argfi byte 


205 


add a, (hi) 


;7t 


2a lb add accuaulator with arg2 


206 


jp po ,$+13 


;3e 


lOt 3t 


) if no overflow store result 


207 


jpc ,$+0 


*3> 


lOt 3b if carry the aaxiaize ainus rslt 


206 



Id a,01ililllb;2a 7t 2b 
jp $+5 ;3a lOt 3b 
Id a, lOOOOOOOb ;2a 7t 2b 



put in largest positive value 
put in largest negative value 



209 
; 210 
? 2U 



Id (R01), a ; 


I3t 4a 3b 


save result of add in rslt ; 212 


Id a, (ROD ; 


4a 13t 


3b assign R01 


213 


Id (light), a 


;4a 


13t 


3b to light 


214 


e 

1 








215 


; wait 250 as 


(for z80a 4 rtz clock) 


216 


• 

t 








217 


Id b,50 ;2a 


i 7t 


2b set value of outer loop counter ; 218 


Id de,-l 


?3e 


lOt 


3b value by idiich inner loop is dccreantd 


219 


Id hl.600 


?3e 


lOt 


3b starting couter value for inner loop 


220 


add hl,de 


;3e 


lit 


lb decreaent inner loop 


221 


nop 


;!■ 


4t 


lb duaay inst. to sake inner loop =25t 


222 


JP c,$-2 


;3- 


lOt 


3b juap to of inner loop until hl=0 


223 


djnz $-8 


;3a2 13t8 


2b decreaent outer loop counter until b*0 


224 


604:jp 603 ; 


3a lOt 3b juap to top of while-do loop 


225 


ret 


;3t 


lOt 


lb return to eonitor,exit onlita 


226 


{procedure off It 






227 


toff It: nop 


;la 4t 


lb entry point for offlt 


226 


Id a, (toOl) ; 


4a 13t 


3b assign tool 


229 


Id (light), a 


{4a 


13t 


3b to light 


230 


Id a, (light) 


;4a 13t 


3b 


get contents of output variable 


231 


out (0d0h),a 


;3« 


lit 


2b output to data port of 7303 card 


232 


• 

» 








233 


; wait 500 as 


(for z80a 4 


rtz clock) 


234 


• 

f 








235 


Id b, 100 ;2a 7t 


2b 


set value of outer loop counter 


236 


Id de,-l 


;3« 


lOt 


3b value by which inner loop is decreantd 


237 


Id hi, 800 


i3a 


lOt 


3b starting couter value for inner loop 


236 


add hl,de 


?3a 


lit 


lb decreaent inner loop ; 239 


nop 


;!■ 


4t 


lb duaay inst. to aake inner loop =25t 


240 


JP c,$-2 


53- 


lOt 


3b juap to of inner loop until hl=0 


241 


djnz $-8 


;3a2 13t8 


2b decreaent outer loop counter until b=0 


242 


ret 


;3a 


lOt 


lb return to aonitor,exit offlt 


243 



®c01 : defb 0 {reserve one byte for data 

to02: defb 2 {reserve one byte for data 



244 

245 
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Pc03: defb 1 {reserve one byte for data } 246 

Pc04: defb * {reserve one byte for data ; 247 

Pc05: defb 7 {reserve one byte for data ; 248 

org 32730 ;8 bit variable PtOl in ran ; 249 

ttOl: defb 0 ;0e Ot lb ; 250 

org 16828 ; 251 

; =eonitor section® ; 252 

Pspvsr:nop ;le 4t lb eark top of the polling loop ; 253 

call Peach 1 ;5e 17t 3b test for contingency eachl ; 254 

Id a, (eachl) ;4e 13t 3b get contingency result ; 255 

cp 11111111b ;le 4t lb check if result true ; 256 

call z,Ponlita ;5e 17t 3b if true execute task ; 257 

;if not true get next tabent or tabend to loop ; 256 

call Peach5 ;5a 17t 3b test for contingency each5 ; 259 

Id a, (each5) ;4a 13t 3b get contingency result ; 260 

cp 11111111b ;le 4t lb check if result true ; 261 

call z, Pofflt ;5a 17t 3b if true execute task ; 262 

;if not true get next tabent or tabend to loop ; 263 

call Peach5 ;5e 17t 3b test for contingency each5 ; 264 

Id a, (each5) ;4e 13t 3b get contingency result ; 265 

cp 11111111b ;la 4t lb check if result true ; 266 

call z,Pofflt ;5e 17t 3b if true execute task ; 267 

;if not true get next tabent or tabend to loop ; 266 

jp Pspvsr ;go to the top of the polling loop of eonitor table ; 269 

; this space is deliberately void, this is a duaey prieitive. ; 270 

; this space is deliberately void, this is a duaey prieitive. j 271 

PiO:jp Pspvsr ;3e lOt 3b initialization of hardware is complete ; 272 

; start top of eain eonitor loop ( 273 

end ; end of software listing ready for asseab| 274 

Hsrtiwgr* lla& 

CAD80, Version 1.3f, Feb. 8, 1965 

put z-80 epu board in slot 1 ; 1 

neaex high ; 2 

set juepers in the following pattern ; 3 

juaper pattern ; 4 

m2 010 ; 5 

w3 001 ; 6 

w4 010 { 7 

w5 1 ; 8 

m6 001 } 9 

w7 01 ; 10 

m6 110 ; 11 

w9 1111 ; 12 

wlO 1 ; 13 

wl2 101010 ; 14 

wl3 10 { 15 

wl4 10 ; 16 
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■IS 01 ; 17 

note nuaberiag is from left to right and free top to bottoa. ; 18 

address space QQ00-7fff ; 19 

connect poaersupply to card cage ; 20 

put first prolog std 7303 keyboard/display card in slot 2 ; 21 

connect the following juaper pins ; 22 

*6 ; 23 

y4 ; 24 

zO ; 25 

zl ; 28 

disconnect the following juaper pins ; 27 

all others ; 28 

address space 11000000, 11000001 ; 29 

put 16k anory board in slot 3 ; 30 

set juapers in the following pattern ; 31 

juaper pattern ; 32 

wl 11111111 ; 33 

w2 10 5 34 

■3 0 ; 35 

w4 01 ; 36 

■5 1 ; 37 

address range for card is 4000-7fff ; 38 

1 this realization consumes 0.000 natts of power 
contains 0 chips. 

Debug file 

CAD80, Version 1.3f, Feb. 8, 1985 

error! funaap detected no colon in primitive 

37s . f ixedwait (250) 

funaap forcing colon into primitive 
s.f ixedwait <250: ) 

error! funaap detected no colon in primitive 
44s. f ixedwait (500) 

funaap forcing colon into primitive 
s.f ixedwait <500: ) 

1 this realization consumes 0.000 watts of power 
and contains O chips. 

2 errors in cad80, result = O 
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APPENDIX G 



SUMMARY OF TRANSLATOR ERRORS 



This appendix contains a summary of Translator errors. 
These errors are discussed in detail in section III.C. and 
section IV.B. If the Translator undergoes maintenance in 
the future, manual editing of primitive lists can be 
eliminated during the course of developing controller 
realizations . 

1. Format errors relating to specific primitives: 

s.f ixedwait -- colon must be present after time value 
current : 

s.fixedwait (lOO) 
should be: 
s.fixedwait (100:) 



s.forcons 

current : 
s.forcons 
should be: 
s.forcons 



value for max loop count must be moved 
from criteria section to argument section 

(COUNT,0CO2,0CO4,0O3,0O4:8,8,8,12O) 

(COUNT, 0CO2, 0004,003,004, 120:8, 8, 8) 



s.whilestart and a.whilecon -- value for max loop count 

must be moved from s.whilecon to s.whilestart 
and correct precision placed in s.whilecon 



current: 

s.whilestart (003 : ) 
s.whilecon (0TO1, 004:4) 
should be: 

s . whi lestart (003,4 : ) 
s.whilecon (0TO1, 004:8) 



s.st bool wait and s.boolwait -- time period should be moved 

from s.boolwait to s.stboolwait 

current: 

s . stboolwai t (003 : ) 

s.boolwait (0TO1 ,003,004:8, 1700) 
should be: 

s . stboolwait (003 , 1700 : ) 
s.boolwait (0TO1, 003, 004:8) 



s.waitleast -- many new arguments should be added and CSDL 

requires modification; time period must be 
moved from criteria section to argument 
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current : 
s.waitleaat 
should be: 
s.waitleaat 



section and precision for Integer variable 
must be moved from argument section to 
criteria section 

(0TO1, 8:500) 

< 0TO2 , 0TO1 ,005 , 006 , 500 , 1500 : 8 , 8 ) 



1 2 3 4 5 6 



1 -- variable to be used for loop counter 

2 -- variable containing integer result 

3 -- top label 

4 -- bottom label 

5 -- time period 

6 -- max allowed time period 



2. Translator code should be modified to handle time units 
less than milliseconds since CSDL allows time units as 
small as nanoseconds. 

3. Consideration might be given to modify the Translator to 
handle fractional numbers vice just integers. 

Primitives in the Realization Volume would also require 
modification if this were implemented. 

4. The Translator's decision point for specifying 16 bit 
constants vice d bit constants should be between 127 and 
126, not the current 126 and 129. 

5. The Translator should be modified to always specify an 8 
bit precision for the boolean variable in a relational 
primitive, such as s.eq, regardless of the precisions 
specified for the other arguments. 

6. Variables specified as type DUPLEX must be usable in 
the CSDL statements, SENSE or ISSUE. Currently the 
Translator generates syntax errors if this is attempted. 

7. The primitive, s.not, can not be produced by the 
Translator even though it is a valid primitive according 
to Carson, author of the Translator. 

8. If the CSDL statement for a <SIMPLE D0> is placed in the 
contingency list section of a CSDL problem, the 
Translator generates syntax errors. An example is 

'DO MANUAL 4', which means the task MANUAL, is fourth in 
priority relative to other tasks listed in the 
contingency list section of a CSDL problem. 
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9 . 



Syntax error messages must, be made easier to understand. 
An example is the message "expected symbol list 
follows", where the expected symbol list that follows is 
a meaningless string of letters and other characters. 

10. CSDL and the Translator should be modified to allow more 
than one expression between s.stboolwait and s.boolwait 
when a boolean wait construct is specified by a 
designer. This would make it possible for the 
condition being checked during a boolean wait, to 
change . 
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